In byandell/qtl2shiny: Shiny interface for 'qtl2' Fine Mapping

nodes <- 
   readr::read_csv(system.file("extdata/qtl2shinyNode.csv", package = "qtl2shiny"))
links <- 
   readr::read_csv(system.file("extdata/qtl2shinyEdge.csv", package = "qtl2shiny"))

net <- igraph::graph_from_data_frame(d=links, vertices=nodes, directed=TRUE)

net <- igraph::simplify(net, remove.multiple = F, remove.loops = TRUE)

#change arrow size and edge color:
igraph::E(net)$arrow.size <- .2
igraph::E(net)$edge.color <- "gray80"

netModule <-
  igraph::delete_vertices(
    igraph::delete_edges(
      net,
      igraph::E(net)[assign == "output"]),
    unclass(igraph::V(net)[shiny != "module"]))

#jpeg("net.jpg", width = 700, height = 700)
plot(netModule, vertex.shape="none", 
     vertex.label=igraph::V(netModule)$name, 
     vertex.label.font=2, vertex.label.color="black",
     vertex.label.cex=0.5, edge.color="gray50",
     layout = igraph::layout_as_tree)
#invisible(dev.off())