hello world - shiny app

library(shiny)
ui <- fluidPage("Hello World")
server<- function(input, output) {}
shinyApp(ui = ui, server = server)