R/ui.R

In goodfr/shiny_starter: Basic demo of shiny app deployment

library(shiny)

ui <- function(){
	fluidPage(
		sidebarLayout(
			sidebarPanel = sidebarPanel(
				h3("To demonstrate basic shiny deployment with Docker")
			),
			mainPanel = mainPanel(
				shiny::dataTableOutput(outputId = "table")
			)
		)
	)
}