r - 如何在 Shiny 的小部件中仅选择月份和年份

Question

我的普通 Shiny 日期小部件提供按年月日选择日期的功能。代表:

# Load library

library(shiny)
library(dplyr)

# Load data & prepare data

data(economics)

dat <- economics %>% filter(date > '2014-01-01')


# Define UI 

ui <- fluidPage(
     
     dateRangeInput(
          
          inputId = 'enter_dt',
          label = 'select timeframe:',
          start = max(dat$date),
          end = min(dat$date) ,

     )
)

# Define server 

server <- function(input, output) {
     
    
}

# Run the application 

shinyApp(ui = ui, server = server)

上面的代码给了我这个:

我正在尝试获取一个仅提供年月的小部件，如下所示:

请指教。

Answer 1

我们可以使用 shinyWidgets 中的 airDatepickerInput:

library(shiny)
library(dplyr)
library(shinyWidgets)

# Load data & prepare data
data(economics)
dat <- economics %>% filter(date > '2014-01-01')


# Define UI 

ui <- fluidPage(
  
  airDatepickerInput("input_var_name",
                     label = "Start month",
                     value = "2022-10-01",
                     maxDate = "2022-12-01",
                     minDate = "2022-01-01",
                     view = "months", 
                     minView = "months", 
                     dateFormat = "yyyy-mm"
  )
)

# Define server 

server <- function(input, output) {
  
  
}

# Run the application 

shinyApp(ui = ui, server = server)