From e6c627550f5e09b0d0aaaeb39874b611381ff2a9 Mon Sep 17 00:00:00 2001
From: Emma Mendelsohn <mendelsohn@ecohealthalliance.org>
Date: Wed, 20 Dec 2023 17:00:14 -0500
Subject: [PATCH] fix typo

---
 scripts/eda/app.R | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/scripts/eda/app.R b/scripts/eda/app.R
index 3202c7d..7bb5cfc 100644
--- 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)
     
   })
-
+  
   
 }