我已经使用 Shiny 中的 visNetwork 包构建了我的网络。我想单击一个节点，然后显示数据框中有关该节点的信息。我已经能够使用单击和近点函数对散点图执行此操作，例如此处显示的 Shiny 示例中的函数：http://shiny.rstudio.com/gallery/plot-interaction-selecting-points.html http://shiny.rstudio.com/gallery/plot-interaction-selecting-points.html.
对于我的网络，我尝试过：
server <- function(input, output) {
output$network <- renderVisNetwork({
visNetwork(my.nodes, my.edges,
height = "100%", width = "100%",
main = "") %>%
visEvents(hoverNode = "function(nodes){
Shiny.onInputChange('current_node_id',nodes);
;}",
click = "function(){
Shiny.onInputChange('click',{node: current_node_id});
;}"
)
})
output$shiny_return <- renderPrint({
if(!is.null(input$current_node_id)){
nearPoints(node.data,click$node, addDist = TRUE )
}
})
ui <- fluidPage(
visNetworkOutput("network"),
verbatimTextOutput("shiny_return")
)
但是，我收到一条错误消息“找不到单击对象”
感谢您的帮助。
不同点：
- 你的 JavaScript 事件
click是错的。不知道关于current_node_id并且必须用闪亮的方式调用input$click并不是click$node
-
nearPoints仅适用于plotOuput。不能与 javascript / htmlwidgets 函数一起使用。
要启用此类功能，请使用visNetwork,我刚刚添加了一个新功能visNearestNodes在最新的开发版本中。这是一个简单的例子：
# install dev version
devtools::install_github("datastorm-open/visNetwork")
require(visNetwork)
require(shiny)
nodes <- data.frame(id = 1:15, label = paste("Label", 1:15),
group = sample(LETTERS[1:3], 15, replace = TRUE))
edges <- data.frame(from = trunc(runif(15)*(15-1))+1,
to = trunc(runif(15)*(15-1))+1)
server <- function(input, output, session) {
output$network <- renderVisNetwork({
visNetwork(nodes, edges,
height = "100%", width = "100%",
main = "") %>%
visEvents(click = "function(nodes){
Shiny.onInputChange('click', nodes.nodes[0]);
;}"
)
})
output$shiny_return <- renderPrint({
visNetworkProxy("network") %>%
visNearestNodes(target = input$click)
})
}
ui <- fluidPage(
visNetworkOutput("network"),
verbatimTextOutput("shiny_return")
)
shiny::shinyApp(ui = ui, server = server)
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
