Question

我正在使用R / Shiny开发一个Web应用程序，并且需要使用JavaScript脚本（该应用程序的先前版本仅使用JS编写）。我在Shiny教程中包含了它所说的脚本，并且可以从Web控制台运行脚本。我如何在程序中运行它？

脚本名称为runAllHooks([string])

我有，在ui.R：

shinyUI(fluidPage(
tags$head(
    tags$link(rel = "stylesheet", type = "text/css", href = "ppp.css"), 
    tags$script(src="productPage.js")
),
mainPage(
...
   tags$button(type="button", onclick="runAllHooks(Query)", "RELOAD")
... 
))

在global.R中：

Query <- #SomeInitialQuery

<\ n>在server.R中：

shinyServer(function(input, output){
    Query <<- #SomeQueryAgain
})

此代码不起作用;它说查询未定义。我该怎么做呢？谢谢！

更新：

我意识到我没有使用反应功能，这是一个问题。

基本上，我现在拥有：

，而不是在全局中使用Query

shinyServer(function(input, output){
     output$Query <- #someQuery
}

其余的基本相同。我想我的问题转变为在尝试运行JS脚本时如何引用R变量？

在Shiny中运行JavaScript脚本

0 个答案: