inst/apps/myfirstapp/ui.R

In clawilso15/Text.Replace: Survey Responses Analysis

ui <- fluidPage(title = 'My First App!',
                theme = shinythemes::shinytheme('cyborg'),
                
                sidebarLayout(
                  sidebarPanel(width = 3,
                               sliderInput("num_colors",
                                           label = "Number of colors:",
                                           min = 1,
                                           max = 9,
                                           value = 7),
                               selectInput("select", 
                                           label = "Select Demographic:", 
                                           choices = colnames(map_data)[2:9], 
                                           selected = 1)),
                  
                  mainPanel(width = 9, 
                            tabsetPanel( 
                              tabPanel(title = 'Output Map', 
                                       plotOutput(outputId = "map")),
                              tabPanel(title = 'Data Table', 
                                       DT::dataTableOutput(outputId = 'table'))))))