Merge pull request #28 from mhweber/master

fixes to sc_get_data

R/sc_get_data.R

@@ -76,10 +76,10 @@ sc_get_data <- function(metric=NA, aoi=NA, comid=NA, state=NA, county=NA,
   if (!is.na(state)) post_body <- paste0(post_body,"&state=",state) 
   if (!is.na(county)) post_body <- paste0(post_body,"&county=",county) 
   if (!is.na(region)) post_body <- paste0(post_body,"&region=",region) 
-  if (!is.na(showAreaSqKm)) post_body <- paste0(post_body,"&showAreaSqKm=",showPctFull)
-  if (!is.na(showPctFull)) post_body <- paste0(post_body,"&showPctFull=",showAreaSqKm) 
+  if (!is.na(showAreaSqKm)) post_body <- paste0(post_body,"&showAreaSqKm=",showAreaSqKm)
+  if (!is.na(showPctFull)) post_body <- paste0(post_body,"&showPctFull=",showPctFull) 
   if (!is.na(conus)) post_body <- paste0(post_body,"&conus=",conus)
-  if (!is.na(countOnly)) post_body <- paste0(post_body,"&countOnly=",conus)
+  if (!is.na(countOnly)) post_body <- paste0(post_body,"&countOnly=",countOnly)
   post_body = substring(post_body, 2)
   resp <- httr::POST(query_url, body=post_body)
   df <- httr::content(resp, type="text/csv", encoding = 'UTF-8',show_col_types = FALSE) 

docs/pkgdown.yml

@@ -1,8 +1,8 @@
-pandoc: 2.19.2
+pandoc: 3.1.1
 pkgdown: 2.0.7
 pkgdown_sha: ~
 articles:
   Applications: Applications.html
   Introduction: Introduction.html
-last_built: 2023-03-09T21:10Z
+last_built: 2023-09-06T03:19Z
 

tests/testthat/test-sc_get_params.R

@@ -12,5 +12,5 @@ test_that("st_get_params for region parameters", {
 test_that("st_get_params for name parameters", {
   params <- sc_get_params(param='name')
   expect_true(exists("params"))
-  expect_equal(length(params),567)
+  expect_equal(length(params),588)
 })