在 shinyWidgets::airMonthinputPicker() 中选择当前月份

Question

我正在使用 shinyWidgets 包中的 airMonthpickerInput() 函数。对于我的特定应用程序，起始值（月）是 2019 年 2 月（如 value = as.Date("2019-02-01") 中所定义）。这显示正确，给定以下代码：

library(shiny)
library(shinydashboard)
library(shinyWidgets)

ui <- dashboardPage(
  dashboardHeader(title = "Basic dashboard"),
  dashboardSidebar(),
  dashboardBody(

             airMonthpickerInput(inputId = "select_month", label = "Select Month", value = as.Date("2019-02-01")), multiple = FALSE, autoClose = TRUE)

  )
)
)

server <- function(input, output) {


}

app<-shinyApp(ui = ui, server = server)
runApp(app, host="0.0.0.0",port=5050, launch.browser = TRUE)

但是，当您尝试更改月份时，生成的弹出窗口默认显示当前月份（撰写本文时为 2020 年 1 月）。该应用程序的大部分数据来自 2019 年（正如您所期望的那样，今年已经结束）因此用户必须单击月份选择器，然后单击左箭头以显示 2019 年的月份，然后 select 所需的月份2019.

我想消除这种摩擦（过度点击按钮），这样当点击月份选择器时，2019 年 2 月仍然突出显示（即显示 2019 年，而不是 2020 年）。是否有可能做到这一点？我已经检查了函数的参数，但看不到任何明显的东西可以让我在尝试更改月份时显示 2019 年。

Answer 1

原来 shinyWidgets::airiMonthinputPicker() 中存在错误。 @Victorp 的一个非常快速的错误修复解决了这个问题。如果其他人当前遇到此问题，请从 Github 重新安装 shinyWidgets。完整的细节可以在这里找到：https://github.com/dreamRs/shinyWidgets/issues/248

在 shinyWidgets::airMonthinputPicker() 中选择当前月份

Keep current month selected in shinyWidgets::airMonthinputPicker()

r

shiny

shinywidgets