quick code cleanup

ecohealthalliance · Jan 12, 2024 · bd1c6a3 · bd1c6a3
1 parent 427e62d
commit bd1c6a3
Showing 1 changed file with 15 additions and 29 deletions.
diff --git a/scripts/eda/app.R b/scripts/eda/app.R
@@ -226,7 +226,7 @@ server <- function(input, output, session) {
                       "comparison" = "forecast")
         period_choices <- ifelse(lab == "previous", "recorded", lab)
         period_choices <- get(glue::glue("{period_choices}_periods"))
-
+        
         paste(names(period_choices[period_choices == i]), "days", lab)
       })
 
@@ -235,41 +235,27 @@ server <- function(input, output, session) {
 
         selected_dataset <- stringr::str_remove(input$selected_dataset, '_forecast')
 
-        list(create_arrow_leaflet(
-          conn = get_conn(),
-          field = paste0("anomaly_", selected_dataset, "_forecast_", i),
-          selected_date = input$selected_date,
-          palette = get_pal(),
-          domain = get_dom(),
-          include_legend = TRUE
-        ),
-        create_arrow_leaflet(
-          conn = get_conn(),
-          field = paste0("anomaly_", selected_dataset, "_recorded_", i),
-          selected_date = input$selected_date,
-          palette = get_pal(),
-          domain = get_dom(),
-          include_legend = TRUE
-        ),
-        create_arrow_leaflet(
-          conn = get_conn(),
-          field = paste0("anomaly_", selected_dataset, "_difference_", i),
-          selected_date = input$selected_date,
-          palette = get_pal(),
-          domain = get_dom(),
-          include_legend = TRUE
-        )
-        )
+        purrr::map(c("forecast", "recorded", "difference"), function(x){
+          create_arrow_leaflet(
+            conn = get_conn(),
+            field = paste0("anomaly_", selected_dataset, "_", x, "_", i),
+            selected_date = input$selected_date,
+            palette = get_pal(),
+            domain = get_dom(),
+            include_legend = TRUE
+          )
+        })
+
       }) 
       map_list <- unlist(map_list, recursive = FALSE)
 
       # Generate an associated tag for each map
       tag_list <- purrr::map(input$selected_period, function(i){
         period_choices <- get("forecast_periods")
         list(
-        paste(names(period_choices[period_choices == i]), "days ahead forecast"),
-        paste(names(period_choices[period_choices == i]), "days ahead recorded"),
-        paste(names(period_choices[period_choices == i]), "days", "difference forecast - recorded")
+          paste(names(period_choices[period_choices == i]), "days ahead forecast"),
+          paste(names(period_choices[period_choices == i]), "days ahead recorded"),
+          paste(names(period_choices[period_choices == i]), "days", "difference forecast - recorded")
         )
       })
       tag_list <- unlist(tag_list, recursive = FALSE)