我想在用户打开/登陆“tab1”时自动运行操作按钮。因此,我希望自动打印日期,而不是单击刷新按钮来查看日期。有没有办法做到这一点?我的真实代码比这个简单的例子更复杂。但是,它展示了我想做的事情。谢谢!
library(shiny)
ui <- fluidPage(
shiny::tabPanel(value = 'tab1', title = 'Data page',
br(),
shiny::actionButton("btn", "Refresh!"),
br(),
shiny::verbatimTextOutput("out")
)
)
server <- function(input, output, session) {
curr_date <- shiny::eventReactive(input$btn, {
format(Sys.Date(), "%c")
})
output$out <- shiny::renderText({
print(curr_date())
})
}
shinyApp(ui, server)