Question

我在Shiny中有一个HTML按钮，当点击它时，调用geocodeAddressStreet(...)目录中.js文件中的JavaScript函数/www：

tags$body(tags$input(type = "button", 
                     value = "Next", 
                     id = "button1", 
                     onClick = "geocodeAddressStreet(houseNumber,streetName,addressCity,addressState)"))),

但是我无法弄清楚如何点击这个按钮来调用第二个文件，让我们说foo.R。这两个过程都是独立运行的，但似乎无法在Shiny中向HTML元素添加inputId。我们目前有两个不同的按钮，其中一个调用R代码，另一个调用JavaScript代码，但这显然是一个不切实际的解决方案。

Answer 1

所以你想要一个按钮，当你点击它时，javascript函数和一些R代码都会被调用？我能够使用shinyjs包中的onclick函数执行此操作（免责声明：我编写了包）

library(shinyjs)

jsCode <- "
shinyjs.geocodeAddr = function(params) {
  alert('JavaScript called!');
  // geocodeAddressStreet(...)
}
"

runApp(shinyApp(
  ui = fluidPage(
    useShinyjs(),
    extendShinyjs(text = jsCode),
    actionButton("btn", "Click me")
  ),
  server = function(input, output, session) {
    onclick("btn", {
      js$geocodeAddr()
      cat("R called as well")
    })
  }
))

基本上，onclick函数是一个R函数，它将在单击按钮时运行。在其中你可以很容易地调用R代码，但你也可以使用shinyjs包调用JS代码 - 这就是我如何调用js$geocodeAddr。查看extendShinyjs函数。或者，您也可以使用extendShinyjs()

的常用方法，而不是使用session$sendCustomMessage(...)

如何在Shiny中获得一个按钮来同时调用JavaScript和R代码？

1 个答案: