if (interactive()) {
library(shiny)
server <- function(input, output, session) {
rewind_enable()
observeEvent(input$readonly_mode, {
if (input$readonly_mode) rewind_disable()
})
}
}
Run the code above in your browser using DataLab