Question

这个问题对于特定的代码更具概念性而非显性，所以我猜这次没有玩具代码。

我有一个相当大的闪亮应用程序，它使用一些d3.js脚本。 D3对象在调用update函数时访问一些全局变量。我想从Shiny服务器控制这些变量 - 这可能吗？

Answer 1

此应用假定全局变量已分配给window。然后它使用自定义消息处理程序来创建原始变量（＃1），使用另一个来操纵该变量的值（＃2）。

已编辑以使用全局变量的状态将消息发送回R.

R代码：

library(shiny)

ui <- fluidPage(

# Application title
titlePanel("Global Variable Manipulation"),

  mainPanel(
    sliderInput("data", "Element", min = 0, max = 100, value = 0),
    actionButton("go", "GO"),
    textOutput("var"),
    singleton(
      tags$head(tags$script(src = "message-handler.js"))
    ),
    singleton(
      tags$head(tags$script(src = "message-handler2.js"))
    ),
    singleton(
      tags$head(tags$script(src = "back-to-shiny.js"))
    )
  )

)


server <- function(input, output, session) {

  observe({
    session$sendCustomMessage(type = 'testmessage',
                              message = list(a = 1, b = 'text',
                                             controller = input$data))
  })

  observeEvent(input$go,{
    session$sendCustomMessage(type = 'changeMessage',
                              message = list(2))
  })

  output$var <- renderPrint({
    input$jsvalue
  })
}

# Run the application 
shinyApp(ui = ui, server = server)

message-handler.js代码：

Shiny.addCustomMessageHandler("testmessage",
  function(message) {
     window.globalVar = message.controller
    alert(JSON.stringify(window.globalVar));
  }
);

message-handler2.js代码：

Shiny.addCustomMessageHandler("changeMessage",
  function(message) {
    window.globalVar = window.globalVar-message;
    alert(JSON.stringify(window.globalVar));
  }
);

back-to-shiny.js代码：

setInterval(function(){
    var message = window.globalVar;   
    Shiny.onInputChange("jsvalue", message);
},0);

如何修改闪亮服务器中的js变量（htmlwidgets / R）

1 个答案: