fix nassqs_param_values() error and associated test.

ropensci · Oct 30, 2019 · 2da1dde · 2da1dde
1 parent 9beeabc
commit 2da1dde
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 3 deletions.
diff --git a/R/params.R b/R/params.R
@@ -137,7 +137,7 @@ nassqs_param_values <- function(param, ...) {
     res <- nassqs_parse(nassqs_GET(params, api_path = "get_param_values"), as = "list")[[1]]
   } else {
     d <- nassqs(...)
-    res <- sort(unique(d[["param"]]))
+    res <- sort(unique(d[[param]]))
   }
   res
 }

diff --git a/tests/testthat/test-params.R b/tests/testthat/test-params.R
@@ -33,8 +33,7 @@ with_authentication({
   test_that("nassqs_param_values returns parameter values filtered for other parameters", {
     v = nassqs_param_values(param = "source_desc", year = 2012, county_name = "YAKIMA",
                             group_desc = "EXPENSES", sector_desc = "DEMOGRAPHICS")
-    expect_equal(nassqs_param_values("source_desc"), c("CENSUS", "SURVEY"))
-    expect_equal(nassqs_param_values("SOURCE_DESC"), c("CENSUS", "SURVEY"))
+    expect_equal(v, c("CENSUS"))
   })
 
 })