gistfile1.txt

ui <- dashboardPage(
  
  dashboardHeader(title = "World bank indicator explorer"),
  dashboardSidebar(
    sidebarMenu(
      menuItem("Timeseries", tabName = "timeseries", icon = icon("map")),
      menuItem("Map", tabName = "map", icon = icon("map")),
      menuItem("Motion chart", tabName = "motionchart", icon = icon("database"))
    )
  ),
  
  dashboardBody(
    tabItems(
      tabItem(tabName = "timeseries",
              fluidRow(
                box(title = "Select Item", status = "info", solidHeader = TRUE,
                    collapsible = TRUE,
                    selectizeInput("country", "Select Country", countries,multiple=TRUE),
                    selectizeInput("IndicatorCategory", "Select Indicator Category", unique(ind.cat[,2])),
                    uiOutput("indicator")
                    #selectizeInput("indicator", "Select Indicator", indicators)
                )
              ),
              fluidRow(
                dygraphOutput("dygraph")
              )
              
      ),
      
      tabItem(tabName = "map",
              fluidRow(
                box(title = "Select Item", status = "info", solidHeader = TRUE,
                    collapsible = TRUE,
                    selectizeInput("IndiCategory", "Select Indicator Category", unique(ind.cat[,2])),
                    uiOutput("indicator2"),
                    sliderInput("year", "Year",
                                min = 1960, max =2015,
                                value =2013, animate = TRUE)
                    #selectizeInput("indicator", "Select Indicator", indicators)
                )
              ),
              
              
              fluidRow(
                box(title = "Geo Chart", status = "success", solidHeader = TRUE,width = 500, height = 800,
                    collapsible = FALSE,
                    htmlOutput("geoChart")
                    
                    )
              ),
              
              fluidRow(
                box(      
                    htmlOutput("top10"),
                    htmlOutput("bottom10"))

                )
      ),
      
      tabItem(tabName = "motionchart",
              fluidRow(
                box(title = "Select Item", status = "info", solidHeader = TRUE,
                    collapsible = TRUE,
                    selectizeInput("varx", "Select X variable", indicators),
                    selectizeInput("vary", "Select Y variable", indicators),
                    selectizeInput("size", "Select size variable", indicators),
                    sliderInput("year1", "Year",
                                min = 1960, max =2015,
                                value =2013, animate = TRUE)
                   
                )
              
              
              
              
               ),
              
              fluidRow(
                box(title = "Bubble Chart", status = "success", solidHeader = TRUE,width = 500, height = 800,
                    collapsible = FALSE,
                    htmlOutput("bubble")
                    
                )
              )
    
      
      
      
      )
  )
))