Code Editor for app.R

library(shiny)

ui <- fluidPage(
    actionButton("warningBtn", "Warning Button", class = "btn-warning")
)

server <- function(input, output) {
    # Example server logic showing button clicks
    observeEvent(input$warningBtn, {
        print("Warning button clicked!")
    })
}

shinyApp(ui = ui, server = server)