typical Shiny app skeleton

typicalShinySkeleton.R

# import libraries
library(shiny)

# possibly read in some data to be used below

# define the UI
ui <- fluidPage(
	# app title 
	headerPanel("My Title"),
	
	# sidebar panel for inputs
	sidebarPanel(
		# add dropdowns, sliders, checkboxes, radio buttons, etc.
	),
	
	# main panel for displaying outputs 
	mainPanel(
		# add text, plots, etc
	)
)

# define server logic 
server <- function(input, output) {
	# make use of any of the inputs that came from the sidebarPanel
	# generate output text, plots, etc. that will be shown in the mainPanel
}

# start the app
shinyApp(ui, server)