Hello,
I would like to remove the action button after 3 clicks on it, but it doesn't work...
library(shiny)
ui <- fluidPage(
actionButton('init','Click')
)
# The server function
server <- function(input,output)
{
observeEvent(input$init==3, {
removeUI(selector='#init', immediate=TRUE)
}, autoDestroy=TRUE)
}
shinyApp(ui, server)
It works for ONE click if I remove the condition "==3", but this is not what I'm trying to achieve...
Cheers,
C.