diff --git a/server.R b/server.R
index de8d432..4ed2924 100755
--- 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
index faae8d0..87bd3a9 100755
--- 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'
                                   )
                            ),