Доступ к переменной Javascript в приложении R Shiny

Question

Я хочу знать, возможно ли использовать переменные, созданные в runjs(), в моем коде R.Например, я смогу получить доступ к переменной today_var вне функции runjs() для дальнейшего анализа.

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)

      })
    }
  )
}

Заранее спасибо

Answer 1

Theres замечательная функция под названием Shiny.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)

    })
  }
)