Beta
Table of Contents
The outline of your notebook will show up here. You can include headings in any text cell by starting a line with # , ## , ### , etc., depending on the desired title hierarchy.
library(shiny)
ui <- fluidPage(
textInput("comment", "Enter your comment:"),
actionButton("save", "Save Comment"),
textOutput("status")
)
server <- function(input, output) {
observeEvent(input$save,
comment <- input$comment
output$status <- renderText("Please enter a comment before saving.")
})
}
shinyApp(ui, server)