library(shiny)
ui <- fluidPage(
actionButton("b1", "press"),
tableOutput("t1")
)
server <- function(input, output, session) {
hist_vec <- reactiveVal(NULL)
observeEvent(input$b1, {
hist_vec(c(
hist_vec(),
sample(c("H", "T"), 1)
))
})
output$t1 <- renderTable({
r <- req(hist_vec())
as.data.frame(table(r))
})
}
shinyApp(ui, server)