account for different info return structure

jsta · Apr 19, 2023 · 7fb3c17 · 7fb3c17
1 parent e775234
commit 7fb3c17
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/.github/workflows/R-CMD-check.yml b/.github/workflows/R-CMD-check.yml
@@ -39,7 +39,7 @@ jobs:
         with:
           r-version: ${{ matrix.config.r }}
 
-      - uses: r-lib/actions/setup-pandoc@v1
+      - uses: r-lib/actions/setup-pandoc@v2
 
       - name: Query dependencies
         run: |

diff --git a/tests/testthat/test-info.R b/tests/testthat/test-info.R
@@ -5,13 +5,13 @@ test_that("info functions work", {
   skip_on_ci()
 
   res <- nhd_plus_info(vpu = 4, component = "NHDSnapshot", dsn = "NHDWaterbody")
-  expect_equal(length(res$iteminfo$name),
-                      12)
+  expect_equal(length(unique(as.data.frame(res)$Var2)),
+                      13)
 
   nhd_get("DC")
   res <- nhd_info("DC", "NHDWaterbody")
-  expect_equal(length(res$iteminfo$name),
-                      13)
+  expect_equal(length(unique(as.data.frame(res)$Var2)),
+                      14)
 
   # works with dbf layers
   nhd_plus_get(1, "NHDPlusAttributes")