如何在闪亮的小部件中仅 select 月份和年份

Question

我的普通 Shiny 日期小部件提供按年-月-日的日期选择。 REPREX:

# 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

我们可以使用 airDatepickerInput 来自 shinyWidgets:

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)

如何在闪亮的小部件中仅 select 月份和年份

How to only select month and year in a shiny widget

r

shiny