将节点信息从 networkd3 提取到闪亮中的反应变量

Question

我在Shiny中使用networkd3软件包时遇到了困难。 我已经绘制了一个图表，并希望以反应方式将节点信息提取回闪亮，以可视化有关某个节点的更多信息。 例如，带有中心节点"父亲"和其他"Son1"..."SonN"的星图。单击Son节点后，我希望能够访问shiny中的" Son1"名称，以从shiny中的数据框中提取信息并可视化其他信息(例如工作，年龄等(。 例如，我能够使用clickAction在屏幕上显示一条消息：

forceNetwork(....., clickAction= 'alert(d.name)')

但是我不知道如何将这个 d.name 值恢复为闪亮，所以我可以进一步使用它，并且在开始运行闪亮时不会出错，因为 d.name 不存在乞求(也许在这里观察功能？我基本上需要一个相当于DT包input$table_rows_selected。

Answer 1

这是一个非常粗略但有效的networkD3forceNetwork图示例，该示例在单击时返回一个值(使用clickAction = 'Shiny.onInputChange("id", d.name)'(，然后用于显示具有该名称的数据框。

library(shiny)
library(networkD3)
links <- read.table(header = T, text = '
source target value
0 1 1
0 2 1
')
nodes <- read.table(header = T, text = '
name group
dad 1
son1 1
son2 1
')
son1 <- read.table(text = '
name John
age 18
')
son2 <- read.table(text = '
name Mark
age 14
')
ui <- shinyUI(fluidPage(
fluidRow(
column(4, forceNetworkOutput("force")),
column(4, DT::dataTableOutput("table"))
)
))
server <- shinyServer(function(input, output) {
output$force <- renderForceNetwork({
forceNetwork(Links = links, Nodes = nodes, Source = "source",
Target = "target", Value = "value", NodeID = "name",
Group = "group", opacity = 1, opacityNoHover = 1, 
clickAction = 'Shiny.onInputChange("id", d.name)')
})
output$table <- DT::renderDataTable(DT::datatable(get(input$id)))
})
shinyApp(ui = ui, server = server)