制作空气Datepicker输入图标可点击

Question

我正在寻找一种解雇这行代码的方法：

onevent('click', '???' ,{ print( 'hey1!!') })

要么

onclick('DateRange' ,{ print( 'hey1!!') })

但只有当用户点击airDatepickerInput的日历图标时

但我不知道如何定位图标，因为它没有自己的ID。

定位'DateRange'将无法正常工作，因为它在点击日期范围字段时也会触发，这是不需要的。

我想要这个的原因是因为我想要选项打开一个模态对话框，显示一个图表，其中包含用户在我的应用中过滤的数据文件的日期分布。

library(shiny)
library(shinyWidgets)

ui <- fluidPage(

    airDatepickerInput(
        inputId = "DateRange",
        label = "Select multiple dates:",
        placeholder = "You can pick 5 dates",
        multiple = 5, clearButton = TRUE
    ),
    verbatimTextOutput("res")
)

server <- function(input, output, session) {
    output$res <- renderPrint(input$DateRange)
}

shinyApp(ui, server)

Answer 1

shinywidget软件包的作者更新了airDatepickerInput，以便现在可以观察到侧面的按钮。

library(shiny)
library(shinyWidgets)

ui <- fluidPage(
    airDatepickerInput(
        inputId = "DateRange",
        label = "Select multiple dates:",
        placeholder = "You can pick 5 dates",
        multiple = 5, clearButton = TRUE
    ),
    verbatimTextOutput("res_date"),
    verbatimTextOutput("res_button")
)

server <- function(input, output, session) {
    output$res_date <- renderPrint(input$DateRange)
    output$res_button <- renderPrint(input$DateRange_button)
observeEvent(input$DateRange_button, { 
    print(input$DateRange_button)
    })
    }

shinyApp(ui, server)