使 airDatepickerInput 的图标可点击

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)

使 airDatepickerInput 的图标可点击

Make icon of airDatepickerInput clickable

events

r

click

shiny