if (FALSE) { # rlang::is_interactive()
library(shiny)
library(bslib)
ui <- page_fluid(
input_submit_textarea("text", placeholder = "Enter some input..."),
verbatimTextOutput("value")
)
server <- function(input, output) {
output$value <- renderText({
req(input$text)
Sys.sleep(2)
paste("You entered:", input$text)
})
}
shinyApp(ui, server)
}
Run the code above in your browser using DataLab