Merge pull request #91 from ESHackathon/nonplottable

Add not plot option
ESHackathon · Apr 13, 2022 · 4fd3c57 · 4fd3c57
2 parents 19570d2 + c358d43
commit 4fd3c57
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 3 deletions.
diff --git a/server.R b/server.R
@@ -711,10 +711,13 @@ shinyServer(
                             dplyr::select(input$map_lng_select)))
 
       # replace missing lat/long with standard locations chosen by 'nonplotted' input
-      if(input$nonplotted == 'mid Atlantic'){
+      if(input$nonplotted == 'Not plotted'){
+        lat_plotted
+        lng_plotted
+      } else if(input$nonplotted == 'mid Atlantic'){
         lat_plotted[is.na(lat_plotted)] <- 0
         lng_plotted[is.na(lng_plotted)] <- -20
-      } else if(input$nonplotted == 'south Pacific'){
+        } else if(input$nonplotted == 'south Pacific'){
         lat_plotted[is.na(lat_plotted)] <- -65
         lng_plotted[is.na(lng_plotted)] <- -124
       } else if(input$nonplotted == 'mid Pacific'){

diff --git a/ui.R b/ui.R
@@ -171,7 +171,7 @@ body <- dashboardBody(
                                   uiOutput("map_columns"),
                                   selectInput("nonplotted",
                                     label = "Select where to plot studies without lat/long",
-                                    choices = c('mid Atlantic', 'south Pacific', 'mid Pacific', 'Equator 0 degrees', 'Greenland'),
+                                    choices = c('mid Atlantic', 'south Pacific', 'mid Pacific', 'Equator 0 degrees', 'Greenland', 'Not plotted'),
                                     selected = 'mid Atlantic'
                                   )
                            ),