有什么办法可以在 Shiny 中制作 networkd3 图形以在单击时更改？

问题描述

因此，我正在尝试完成一个允许玩一个简单游戏的代码，该游戏称为“餐厅定位游戏”，我希望 SimpleNetwork 节点在玩家单击它时改变颜色。 代码非常原始，离完成还很远，我只是想确保我可以在继续之前做到这一点，好像我不能，我将不得不以另一种方式工作

library(shiny)
library(igraph)
library(networkD3)



ui <- fluidPage(

    # Application title
    titlePanel(h1("Restaurant Location Game",align = "center")),sidebarLayout(
        sidebarPanel(
            
        ),mainPanel(
            tabsetPanel(
                tabPanel("Game Graph",simpleNetworkOutput("gameGraph"))
        )
    )
)
)

server <- function(input,output) {
    
   output$gameGraph <- renderSimpleNetwork({
       src <- c(1,1,2,3,4,5,6) 
       target <- c(2,7,6,7)
       networkData <- data.frame(src,target)
       simpleNetwork(networkData,opacity = 1)
       
   })     

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）