R-Data-Analysis-Project/myUI.R at main · IfElseRun/R-Data-Analysis-Project · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35

myUI <- fluidPage(
  navbarPage("NYC Restaurants",
             tabPanel("Main",     fluidRow(
               class = "landing-page",
               column(12, class="borough-dropdown",align="center",
                      uiOutput(
                        outputId = 'select_output'))

             )), tabPanel("Map",
                          dashboardPage(
                            dashboardHeader(disable = TRUE),
                            dashboardSidebar(selectInput(
                              "boro", " Select Boro",
                              c("Manhattan" = "manhattan",
                                "Brooklyn" = "brooklyn",
                                "Bronx" = "gear"))),
                            dashboardBody(
                              # Boxes need to be put in a row (or column)

                              fluidRow(
                                box(uiOutput("plot1", height = 250),width = 12)

                              )
                            )
                          )

                          ),
             tabPanel("Component 3")
  ),

  includeCSS("www/landing-page.css"),
  title = "NYC Restaurants Landing Page"

)