extract items from json return in sc and lc get data functions

USEPA · Jan 2, 2025 · 4b7932a · 4b7932a
1 parent 00b646b
commit 4b7932a
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 6 deletions.
diff --git a/R/lc_get_data.R b/R/lc_get_data.R
@@ -77,11 +77,7 @@ lc_get_data <- function(metric = NULL,
     httr2::resp_body_string() |> 
     jsonlite::fromJSON()
   # End of function. Return a data frame.
-  if (is.null(countOnly)){
-    df <- df$items |> 
-      dplyr::select(comid, everything()) 
-  }
-  return(df)
+  return(df$items)
 }
 
 #' @title Get NLCD Data

diff --git a/R/sc_get_data.R b/R/sc_get_data.R
@@ -126,7 +126,7 @@ sc_get_data <- function(comid = NULL,
     httr2::resp_body_string() |> 
     jsonlite::fromJSON()
     # End of function. Return a data frame.
-    return(df)
+    return(df$items)
 }
 
 #' @title Get NLCD Data