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图标可单击

1 个答案: