Decluttering your shiny app with modularity

app

source("inputcontrols.R")

server <- function(input, output) {
  output$distPlot <- renderPlot({
    hist(rnorm(input$obs), col = 'darkgray', border = 'white')
  })
}

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      inputcontrols
    ),
    mainPanel(plotOutput("distPlot"))
  )
)

shinyApp(ui = ui, server = server)

inputcontrols

inputcontrols<-list(
sliderInput("obs", "Number of observations:", min = 10, max = 500, value = 100)
)