Code Editor for app.R

library(shiny)

ui <- fluidPage(
  h3("System Command Runner"),
  verbatimTextOutput("result")
)

server <- function(input, output, session) {
  output$result <- renderText({
    "This is a Shiny app, it cannot execute system commands directly for security reasons.
    
System commands should be run in the terminal/console directly."
  })
}

shinyApp(ui = ui, server = server)