fix typo

ecohealthalliance · Dec 20, 2023 · e6c6275 · e6c6275
1 parent d0f786a
commit e6c6275
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/scripts/eda/app.R b/scripts/eda/app.R
@@ -1,7 +1,8 @@
 library(shiny)
 library(leaflet)
 library(targets)
-
+library(arrow)
+library(tidyverse)
 
 # Setup -------------------------------------------------------------------
 
@@ -210,7 +211,7 @@ server <- function(input, output) {
   })
 
   pal <- reactive({
-        get(glue::glue("pal_{input$selected_dataset}_anomalies"))
+    get(glue::glue("pal_{input$selected_dataset}_anomalies"))
   })
 
   dom <- reactive({
@@ -241,14 +242,14 @@ server <- function(input, output) {
   output$anomalies_map_90 <- renderLeaflet({
 
     create_arrow_leaflet(conn = conn(), 
-                         field = paste0("anomaly_", input$selected_dataset, "_30"),
+                         field = paste0("anomaly_", input$selected_dataset, "_90"),
                          selected_date = input$selected_date, 
                          palette = pal(),  
                          domain = dom(),
                          include_legend = FALSE)
 
   })
-
+  
 
 }