remove web responses with 0 rows - fixes DOI-USGS#361

dblodgett-usgs · Oct 9, 2023 · 66e954a · 66e954a
1 parent e73ae20
commit 66e954a
Show file tree

Hide file tree

Showing 4 changed files with 22 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: nhdplusTools
 Type: Package
 Title: NHDPlus Tools
-Version: 1.0.0
+Version: 1.0.1
 Authors@R: c(person(given = "David", 
                     family = "Blodgett", 
                     role = c("aut", "cre"), 

diff --git a/NEWS.md b/NEWS.md
@@ -1,3 +1,8 @@
+nhdplusTools 1.0.1
+==========
+
+- fixed bug with large nhdplus downloads with empty tiles. #361
+
 nhdplusTools 1.0.0
 ==========
 

diff --git a/R/geoserver_tools.R b/R/geoserver_tools.R
@@ -227,6 +227,11 @@ unify_types <- function(out) {
       }
     }
   }
+
+  rows <- sapply(out, nrow)
+
+  out <- out[rows > 0]
+
   out
 }
 

diff --git a/tests/testthat/test_02_subset_extras.R b/tests/testthat/test_02_subset_extras.R
@@ -170,3 +170,14 @@ test_that("extras", {
   expect_equal(nhdplusTools:::get_empty("MULTIPOINT"), sf::st_multipoint())
   expect_error(nhdplusTools:::get_empty("BORKED"), "unexpected geometry type")
 })
+
+test_that("unify_types", {
+
+  check <- list(data.frame(), data.frame(one = 1, two = "2"), data.frame(one = "1", two = 2))
+
+  out <- nhdplusTools:::unify_types(check)
+
+  expect_equal(out,
+               list(structure(list(one = 1, two = 2), row.names = c(NA, -1L), class = "data.frame"),
+                    structure(list(one = 1, two = 2), row.names = c(NA, -1L), class = "data.frame")))
+})