shinydashboard is a package that could be used to create elegant dashboards with little effort.
library(shiny)
ui<-dashboardPage(
header = dashboardHeader(title = "Demo"),
sidebar = dashboardSidebar(...),
body = dashboardBody(...)
)
server <- function(input,output,session){}
shinyApp(ui = ui, server = server)