From 809cd26bbd93324f05eca2341d06e27ba7c32fed Mon Sep 17 00:00:00 2001
From: Weber <Weber.Marc@epa.gov>
Date: Fri, 20 Sep 2024 11:04:38 -0700
Subject: [PATCH] temporary fix for ShowAreaSqKm

---
 R/sc_get_data.R | 23 ++++++++++++++++-------
 1 file changed, 16 insertions(+), 7 deletions(-)

diff --git a/R/sc_get_data.R b/R/sc_get_data.R
index 59151dc..2b678f2 100644
--- a/R/sc_get_data.R
+++ b/R/sc_get_data.R
@@ -88,13 +88,13 @@ sc_get_data <- function(metric = NULL,
   # req_url_query silently ignores NULLs.
   post_body=""
   if (!is.null(metric)) post_body <- paste0(post_body,"&name=",metric)
-  if (!is.null(comid)) post_body <- paste0(post_body,"&comid=",comid) 
-  if (!is.null(aoi)) post_body <- paste0(post_body,"&areaOfInterest=",aoi) 
-  if (!is.null(state)) post_body <- paste0(post_body,"&state=",state) 
-  if (!is.null(county)) post_body <- paste0(post_body,"&county=",county) 
-  if (!is.null(region)) post_body <- paste0(post_body,"&region=",region) 
+  if (!is.null(comid)) post_body <- paste0(post_body,"&comid=",comid)
+  if (!is.null(aoi)) post_body <- paste0(post_body,"&areaOfInterest=",aoi)
+  if (!is.null(state)) post_body <- paste0(post_body,"&state=",state)
+  if (!is.null(county)) post_body <- paste0(post_body,"&county=",county)
+  if (!is.null(region)) post_body <- paste0(post_body,"&region=",region)
   if (!is.null(showAreaSqKm)) post_body <- paste0(post_body,"&showAreaSqKm=",showAreaSqKm)
-  if (!is.null(showPctFull)) post_body <- paste0(post_body,"&showPctFull=",showPctFull) 
+  if (!is.null(showPctFull)) post_body <- paste0(post_body,"&showPctFull=",showPctFull)
   if (!is.null(conus)) post_body <- paste0(post_body,"&conus=",conus)
   if (!is.null(countOnly)) post_body <- paste0(post_body,"&countOnly=",countOnly)
   post_body = substring(post_body, 2)
@@ -105,9 +105,18 @@ sc_get_data <- function(metric = NULL,
     # perform the request
     httr2::req_perform() |>
     # extract response body as string
-    httr2::resp_body_string(encoding = 'UTF-8') |> 
+    httr2::resp_body_string(encoding = 'UTF-8') |>
     # 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)
+  }
   # End of function. Return a data frame.
   return(df)
 }