move picker input in server

Author: nicolelpepper

.DS_Store

@@ -1,4 +1,5 @@
 Version: 1.0
+ProjectId: c9648533-bc2b-4ac7-96f9-d30de76b5963
 
 RestoreWorkspace: Default
 SaveWorkspace: Default

R/.DS_Store

@@ -315,6 +315,19 @@ server <- function(input, output, session) {
     }
   })
 
+  # ---- Prep country select input ----
+  output$country_picker_ui <- renderUI({
+    req(broadcasting_emissions)
+    
+    pickerInput(
+      inputId = "country_select_input",
+      label = NULL,
+      choices = c("All Countries", sort(unique(broadcasting_emissions$country_name[broadcasting_emissions$country_name != "All Countries"]))),
+      selected = "All Countries",
+      options = list(`live-search` = TRUE, `noneSelectedText` = "All Countries")
+    )
+  })
+  
 
   # ---- Initialize emissions map ----
   output$emissions_map <- renderMapdeck({

emissions-dashboard.Rproj

@@ -335,12 +335,8 @@ navbarPage(
                                 ), # END infoPopup
 
                                 # Country select dropdown
-                                pickerInput(inputId = "country_select_input",
-                                            label = NULL,
-                                            choices = c("All Countries", sort(unique(broadcasting_emissions$country_name[broadcasting_emissions$country_name != "All Countries"]))),
-                                            selected = "All Countries",
-                                            options = list(`live-search` = TRUE,
-                                                           `noneSelectedText` = "All Countries")), # END pickerInput (country select)
+                                uiOutput("country_picker_ui"),
+                                
 
                                 # Add no data warning (when a country for a selected year has no emissions)
                                 tags$div(