yugi-tmp.R

root_node_df=getTableColumns('node')
root_edge_df=getTableColumns('edge')
# change networkforcus on GUI
gro_node_df=getTableColumns('node')
gro_edge_df=getTableColumns('edge')

new_node_df=bind_rows(roof_node_df, gro_node_df)
new_edge_df=bind_rows(roof_edge_df, gro_edge_df)

new_node_df %>% rename(id=SUID) -> foo
edges=data.frame(source=c(""), target=c(""), interaction=c(""))

edges %>% rename(source=id, target=id.1) -> edges

foo['id']=as.character(foo$id) # This is important!!!

foo %>% select(id, KEGG_NODE_X, KEGG_NODE_Y, KEGG_NODE_Z) -> nodes
createNetworkFromDataFrames(nodes,edges)