deal with missing x,y in csv

Author: ldecicco-USGS

R/walk_pages.R

@@ -137,7 +137,11 @@ get_csv <- function(req, limit) {
 
   if (httr2::resp_has_body(resp)) {
     return_list <- httr2::resp_body_string(resp)
-    df <- data.table::fread(input = return_list, data.table = FALSE)
+    df <- data.table::fread(
+      input = return_list,
+      data.table = FALSE,
+      colClasses = "text"
+    )
 
     included_num_cols <- names(df)[names(df) %in% num_cols]
 
@@ -148,8 +152,10 @@ get_csv <- function(req, limit) {
     if (skip_geo) {
       df <- df[, names(df)[!names(df) %in% c("x", "y")]]
     } else {
-      df <- sf::st_as_sf(df, coords = c("x", "y"))
-      sf::st_crs(df) <- 4269
+      if (all(c("x", "y") %in% names(df))) {
+        df <- sf::st_as_sf(df, coords = c("x", "y"))
+        sf::st_crs(df) <- 4269
+      }
     }
 
     if (nrow(df) == limit) {

tests/testthat/tests_userFriendly_fxns.R

@@ -585,6 +585,18 @@ test_that("bad_properties", {
     time = c("2021-01-01", "2022-01-01"),
     properties = c("value", "time", "blah")
   ))
+
+  # No paging
+  dv_data_quick <- read_waterdata_daily(
+    monitoring_location_id = site,
+    parameter_code = "00060",
+    no_paging = TRUE
+  )
+
+  expect_type(dv_data_quick$parameter_code, "character")
+  expect_is(dv_data_quick$time, "Date")
+  expect_equal(dv_data_quick$parameter_code[1], "00060")
+
   # Empty result:
   expect_message(read_waterdata_daily(
     monitoring_location_id = "USGS-02238500",