在闪亮的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中的观察功能没有给我任何价值。 请告诉我如何通过使用观察功能或其他任何可能的方式来执行此操作。

用户界面

library(shiny)
shinyUI(fluidPage(

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

//rest of the code which is not related

)

服务器

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)
    })
  }
))