The simplest Shiny skeleton

ui <- fluidPage(p("Hello, World!"))
server <- function(input, output, session) {}

shinyApp(ui, server)

Hello World