Shiny Hub Script !!top!! 💯 🏆

# Define UI ui <- fluidPage( titlePanel("My Shiny App"), sidebarLayout( sidebarPanel( sliderInput("obs", "Number of observations:", min = 1, max = 1000, value = 100) ), mainPanel( plotOutput("distPlot") ) ) )