有没有办法确保按下任何一个操作按钮，事件应该触发。在下面的示例中，将在按下任一按钮时打印输出
library(shiny)
ui <- fluidPage(
actionButton("act1", "Action1"),
actionButton("act2", "Action2"),
htmlOutput("gh")
)
server <- function(input, output, session) {
observeEvent((input$act1 | input$act2),{
output$gh <- renderUI({
"Clicked"
})
})
}
shinyApp(ui, server)
是的，observeEvent还有其他参数，例如ignoreInit，只需将其设置为TRUE
library(shiny)
ui <- fluidPage(
actionButton("act1", "Action1"),
actionButton("act2", "Action2"),
htmlOutput("gh")
)
server <- function(input, output, session) {
observeEvent((input$act1 | input$act2),{
output$gh <- renderUI({
"Clicked"
})
},ignoreInit = TRUE)
}
shinyApp(ui, server)
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
我来说两句