使airDatepickerInput的图标可单击

我正在寻找一种触发这行代码的方法：

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

或

但仅当用户单击

airDatepickerInput

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

定位“日期范围”将不起作用，因为它在单击日期范围字段时也会触发，这是不需要的

我之所以想这样做，是因为我想打开一个模式对话框，显示用户在我的应用程序中筛选的数据文件的日期分布图

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)

库（闪亮）
图书馆（shinyWidgets）
uishinywidget软件包的作者已经更新了
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)

库（闪亮）
图书馆（shinyWidgets）
用户界面
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)