inst/apps/myfirstApp/ui.R

In JSmith146/CoRpEx: CorpEx is Designed for the Exploration and Mining of Large Textual Corpuses of Documents

ui <- fluidPage( title = 'My First App!',
                 theme = shinythemes::shinytheme('flatly'),
                 
                 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',
                        dataTableOutput(outputId = 'table'))))))