在闪亮的 R 中使用观察功能

Question

我正在尝试将 JavaScript 变量的值从 ui.R 发送到 Server.R，只要它发生更改。 当用户点击一个链接时，它的 href 值会被提醒。直到这里它工作正常。 链接格式为

<a href="something.com" onclick=\"clickFunction(this.href); return false;\" target=\"_blank\">Sample link </a>

现在，href 值存储在 ui.R 中的变量 link 中。 我正在使用 Shiny.onInputChange 函数将链接的值发送到 server.R。

但是 server.R 中的观察功能没有给我任何价值。如果可能的话，请告诉我如何使用观察功能或任何其他方式来做到这一点。

ui.r

library(shiny)
shinyUI(fluidPage(

  tags$script(HTML("
                      function clickFunction(link){
                          alert(link); 
                          Shiny.onInputChange(\"linkClicked\",link);   
                      }
                     "))

//rest of the code which is not related

)

server.R

library(shiny)

shinyServer(function(input, output) {

  observe({
    input$linkClicked
    print(input$linkClicked)
  })
})

Answer 1

由于您没有提供足够的代码（例如：“UI 中的变量”是什么意思？），我并不完全了解链接的来源以及应用程序的外观。但这里有一个小例子，展示了 javascript 如何成功地向服务器发送信息。我正在使用 shinyjs 包，这是我编写的一个包。

library(shinyjs)
jscode <- "
shinyjs.clickfunc = function(link) {
  alert(link);  
  Shiny.onInputChange('linkClicked', link);
}"

runApp(shinyApp(
  ui = fluidPage(
    useShinyjs(),
    extendShinyjs(text = jscode),
    textInput("link", ""),
    actionButton("btn", "submit")
  ),
  server = function(input, output, session) {
    observeEvent(input$btn, {
      js$clickfunc(input$link)
    })
    observe({
      input$linkClicked
      print(input$linkClicked)
    })
  }
))

编辑：

如果我正确理解链接是如何生成的，那么它可以工作

runApp(shinyApp(
  ui = fluidPage(
    tags$script(HTML("
                      function clickFunction(link){
                          alert(link); 
                          Shiny.onInputChange('linkClicked',link);   
                      }
                     ")),
    tags$a(href="www.google.com", onclick="clickFunction('rstudio.org'); return false;", "click me")
  ),
  server = function(input, output, session) {
    observe({
      input$linkClicked
      print(input$linkClicked)
    })
  }
))