Code Editor for app.R

library(shiny)

ui <- fluidPage(
  h1("Basic Shiny App")
)

server <- function(input, output) {
}

shinyApp(ui = ui, server = server)