1
visNetworkグラフからノード/エッジデータを取得しようとしています。私はサンプルコードを使用していますが、動作していません。私はシャイニーでこれをやろうとしています。私の目標は、ネットワークからノードとエッジのデータを取得し、それをテーブルに表示することです。私は私が得ることができるどんな助けにも大いに感謝します。visNetworkグラフからノードとエッジデータを取得
require(shiny)
require(visNetwork)
server <- function(input, output) {
output$network_proxy_nodes <- renderVisNetwork({
nodes <- data.frame(id = 1:3)
edges <- data.frame(from = c(1,2), to = c(1,3))
visNetwork(nodes, edges) %>% visNodes(color = "green")
})
output$edges_data_from_shiny <- renderPrint({
if(!is.null(input$network_proxy_get_edges)){
input$network_proxy_get_edges
}
})
observe({
input$getEdges
visNetworkProxy("network_proxy_get") %>%
visGetEdges()
})
output$nodes_data_from_shiny <- renderPrint({
if(!is.null(input$network_proxy_get_nodes)){
input$network_proxy_get_nodes
}
})
observe({
input$getNodes
visNetworkProxy("network_proxy_get") %>%
visGetNodes()
})
}
ui <- fluidPage(
visNetworkOutput("network_proxy_nodes", height = "100%"),
verbatimTextOutput("edges_data_from_shiny "),
verbatimTextOutput("nodes_data_from_shiny"),
actionButton("getNodes", "Nodes"),
actionButton("getEdges", "Edges")
)
shinyApp(ui = ui, server = server)
どうもありがとう!私はこのコードを動作させることができました。最高、SB – AquieJo
ようこそ@AquieJo!それがあなたのために働いていれば、あなたはそれを「最善の答え」として受け入れることができます(答えの左側に緑色のダニが現れ、他の人はあなたの質問に答えます)。 – xclotet