Я хочу запускать кнопку действия автоматически, когда пользователи открывают / приземляются на «tab1». Поэтому вместо того, чтобы нажимать кнопку Refre sh для просмотра даты, я бы хотел, чтобы дата печаталась автоматически. Есть ли способ сделать это? Мой настоящий код сложнее, чем этот простой пример. Тем не менее, это демонстрирует, что я хотел бы сделать. Спасибо!
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)