fix: correct is_page check

m-muecke · Dec 11, 2023 · df80fac · df80fac
1 parent 8165064
commit df80fac
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 4 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -1,6 +1,4 @@
-is_page <- function(x) {
-  is.null(page) || is.numeric(page) && length(page) == 1
-}
+is_page <- function(x) is.null(x) || is.numeric(x) && length(x) == 1
 
 na_if_empty <- function(x) replace(x, x == "", NA_character_)
 

diff --git a/R/wb.R b/R/wb.R
@@ -226,7 +226,6 @@ wb_region <- function(region = "all", lang = "en") {
 wb_country <- function(country = "all", lang = "en") {
   stopifnot(is.character(country) && length(country) == 1)
   lang <- match.arg(lang, c("en", "fr", "es", "ar", "zh"))
-  stopifnot(is_page(page))
 
   resource <- sprintf("%s/country/%s", lang, country)
   res <- worldbank(resource, \(resp) {