Nothing
#' A demo function to test the package
#'
#' @return A mully graph
#'
#' @export
demo <- function() {
g <- mully("MyFirstMully",direct = FALSE)
g <- addLayer(g, c("Gene", "Drug", "Disease"))
g=addNode(g,"d1","disease",attributes=list(type="t1"))
print("Node d1 added as disease")
g=addNode(g,"d2","disease",attributes=list(type="t1"))
print("Node d2 added as disease")
g=addNode(g,"d3","disease",attributes=list(type="t1"))
print("Node d3 added as disease")
g=addNode(g,"dr1","drug",attributes=list(effect="strong"))
print("Node dr1 added as drug")
g=addNode(g,"dr2","drug",attributes=list(effect="strong"))
print("Node dr2 added as drug")
g=addNode(g,"dr3","drug",attributes=list(effect="moderate"))
print("Node dr3 added as drug")
g=addNode(g,"g1","gene",attributes=list(desc="AF"))
print("Node g1 added as gene")
g=addNode(g,"g2","gene",attributes=list(desc="BE"))
print("Node g2 added as gene")
#See vertices attributes
as.data.frame(get.vertex.attribute(g))
g=addEdge(g,"dr1","d2",list(name="treats"))
g=addEdge(g,"dr1","d2",list(name="extraEdge"))
g=addEdge(g,"d2","g1",list(name="targets"))
g=addEdge(g,"g2","dr3",list(name="mutates and causes"))
g=addEdge(g,"dr3","d3",list(name="treats"))
print(getEdgeAttributes(g))
removeEdge(g,"d2","dr1",multi=TRUE)
return(g)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.