inst/apps/myfirstapp/ui.R

In HarmonicAnova21/FRame.BuildR: Package for Generation of Frame Matrices

ui <- fluidPage(title = 'Bens First App',
                theme = shinythemes::shinytheme('superhero'),
                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'))))))