2

我正在使用包中的airMonthpickerInput()功能shinyWidgets。对于我的特定应用程序，开始值（月份）是 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 年的月份，然后选择 2019 年内所需的月份。

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

4

1 回答 1

1

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

于 2020-01-06T13:52:47.970 回答