Oops! Forgot a condition and test didn't catch

USEPA · Sep 20, 2024 · cde71dd · cde71dd
1 parent f719bb9
commit cde71dd
Showing 1 changed file with 9 additions and 7 deletions.
diff --git a/R/sc_get_data.R b/R/sc_get_data.R
@@ -109,13 +109,15 @@ sc_get_data <- function(metric = NULL,
     # Transform the string response into a data frame.
     readr::read_csv()
     # Temporary fix for ShowAreaSqKm
-  if (showAreaSqKm==FALSE & 'WSAREASQKM' %in% colnames(df)){
-    df <- df |>
-      dplyr::select(-WSAREASQKM)
-  }
-  if (showAreaSqKm==FALSE & 'WSAREASQKMRP100' %in% colnames(df)){
-    df <- df |>
-      dplyr::select(-WSAREASQKMRP100)
+  if (!is.null(showAreaSqKm)){
+      if (showAreaSqKm==FALSE & 'WSAREASQKM' %in% colnames(df)){
+        df <- df |>
+        dplyr::select(-WSAREASQKM)
+        }
+      if (showAreaSqKm==FALSE & 'WSAREASQKMRP100' %in% colnames(df)){
+        df <- df |>
+        dplyr::select(-WSAREASQKMRP100)
+      }
   }
   # End of function. Return a data frame.
   return(df)