R/render.R

In ecos-umons/maintaineR: maintaineR

RenderSankey <- function(graph, id=NULL) {
  if (is.null(id)) {
    id <- basename(tempfile())
  }
  E(graph)$value <- 1
  edgelist <- get.data.frame(graph)
  colnames(edgelist) <- c("source","target","value")

  edgelist$source <- as.character(edgelist$source)
  edgelist$target <- as.character(edgelist$target)
  sankeyPlot <- rCharts$new()
  sankeyPlot$setLib('www/lib/d3sankey')
  sankeyPlot$set(data=edgelist,
                 nodeWidth=15,
                 nodePadding=10,
                 layout=32,
                 width=960,
                 height=20*length(V(graph)))
  sankeyPlot$print(chartId=id)
}

RenderGraph <- function(graph, id=NULL) {
  if (is.null(id)) {
    id <- basename(tempfile())
  }
  nodes <- data.frame(name=V(graph)$name, group=V(graph)$group)
  edges <- as.data.frame(get.edgelist(graph, names=FALSE) - 1)
  colnames(edges) <- c("source", "target")
  edges <- edges[with(edges, order(source)), ]
  edges$value <- 1
  cat(sprintf("<div id=\"%s\">", id))
  d3ForceNetwork(Links=edges, Nodes=nodes,
                 Source="source", Target="target",
                 Value="value", NodeID="name",
                 Group="group", width=800, height=600,
                 opacity=0.9, parentElement=sprintf("#%s", id), zoom=TRUE)
  cat("</div>")
}