inst/shiny/sampleGUI/ui.R

In unimi-dse/ea34b421: Cost of Living Comparison

ui <-

  shiny::fluidPage(shinythemes::shinytheme("cerulean"),
                shiny::sidebarLayout(
                  shiny::sidebarPanel(width = 4,
                               shiny::selectInput(
                                 inputId = "City",
                                 label = "Please select City",
                                 choices = city,
                                 multiple = TRUE  ),
                               ),

                  shiny::mainPanel(shiny::tabsetPanel(type="tabs",
                                        shiny::tabPanel("Comparison Graph",  DT::dataTableOutput(outputId = "mtble2"),
                                                 shiny::plotOutput("costliving")),

                                        shiny::tabPanel("Data",  DT::dataTableOutput(outputId = "mtble"))



                  )
                  )))