交互式闪亮全局日期选择器

我正在一个没有良好日期选择器的环境中使用 R，并且我正在尝试使用 R 弹出一个日期选择器来填补空白。

大多数 R 日期选择器都需要 GTK 等 UI 库。闪亮的没有。 我想做的就是弹出一个日期选择器，让用户选择日期，然后结束闪亮的会话并将日期传回以继续 R 脚本。

这是我到目前为止所拥有的，但没有成功。我试图将日期分配给全局变量 x。

library("shiny")
## Only run examples in interactive R sessions
if (interactive()) {

  ui <- fluidPage(
    # Default value is the date in client's time zone
    dateInput("date2", "Date:"),
    verbatimTextOutput("date2")

  )

  shinyApp(ui, server = function(input, output) {
  reactive(x <<- input$date2)

  })
}

但变量 x 不会出现在全局环境中。

这里的问题是你永远不会调用那个反应对象。在服务器中，您必须执行以下操作：

shinyApp(ui, server = function(input, output) {
  observeEvent(input$date2, {x <<- input$date2})
})

这样，改变input$date2将触发x的全局赋值。