在R应用程序中访问Javascript变量

我想知道在我的R代码中是否可以使用在

runjs（）中创建的变量。
例如，我将能够在
runjs（）
函数之外访问变量
today\u var
，以进行进一步分析

if (interactive()) {
  library(shiny)
  shinyApp(
    ui = fluidPage(
      useShinyjs(),  
      actionButton("btn", "Click me")
    ),
    server = function(input, output) {
      observeEvent(input$btn, {

        runjs("var today_var = new Date(); alert(today);")
        #print(today_var)

      })
    }
  )
}

提前感谢
这里有一个很棒的函数叫做
shinny。onInputChange
它可以做你想做的事情

library(shiny)
library(shinyjs)
shinyApp(
  ui = fluidPage(
    useShinyjs(),  
    actionButton("btn", "Click me")
  ),
  server = function(input, output) {
    observeEvent(input$btn, {

      runjs('var today_var = new Date(); alert(today_var);Shiny.onInputChange("today_var",today_var);')
      print(input$today_var)

    })
  }
)