Cources/shinyDashboardDimitris/064-telephones-by-region/ui.R

In Dimitrischatzos/shinydashboard-master: Create Dashboards with 'Shiny'

# Rely on the 'WorldPhones' dataset in the datasets
# package (which generally comes preloaded).
library(datasets)
lessons = read.csv(file.choose(),TRUE, sep = ",",na.strings = T)

# Use a fluid Bootstrap layout
fluidPage(    
  
  # Give the page a title
  titlePanel("Telephones by region"),
  
  # Generate a row with a sidebar
  sidebarLayout(      
    
    # Define the sidebar with one input
    sidebarPanel(
      selectInput("Cources", "Region:", 
                  choices=colnames(lessons)),
      View(lessons),
      
      hr(),
      helpText("Data from AT&T (1961) The World's Telephones.")
    ),
    
    # Create a spot for the barplot
    mainPanel(
      plotOutput("phonePlot")  
    )
    
  )
)