skip_on_cran() library(WDI) test_that("extra includes last updated", { x <- WDI(extra = TRUE) expect_true("lastupdated" %in% colnames(x)) }) # breaks on travis but works locally test_that('WDIcache', { cache = WDIcache() expect_type(cache, 'list') expect_gte(nrow(cache$series), 20000) # web cache = stored cache old <- WDIsearch('gdp.*capita.*constant') new <- WDIsearch("gdp.*capita.*constant", cache = cache) row.names(old) <- row.names(new) <- NULL expect_identical(old, new) }) test_that('Bad indicator' , { expect_warning(expect_s3_class( WDI(indicator = c('NY.GDP.PCAP.KD', 'test'), country = 'US', start = 1990, end = 1991), 'data.frame')) expect_error(expect_null( WDI(indicator = c('bad', 'test'), country = 'US', start = 1990, end = 1990))) }) test_that('Bad country', { expect_error(WDI(country = c('bad'))) expect_warning(WDI(country = c('CA', 'bad'), start = 1990, end = 1991)) }) test_that('Bad year', { expect_error(WDI(start = 1950)) expect_error(WDI(start = 1991, end = 1990)) expect_error(WDI(start = '1990M2', end = '1990M1')) }) test_that('WDI', { # 1 country 1 indicator x <- WDI(country='US', indicator='NY.GDP.PCAP.KD', start = 1990, end = 1991) expect_s3_class(x, 'data.frame') expect_equal(dim(x), c(2, 5)) # 3 countries 1 indicator x <- WDI(country=c('CA', 'MX', 'US'), indicator='NY.GDP.PCAP.KD', start=1990, end=1991) expect_s3_class(x, 'data.frame') expect_equal(dim(x), c(6, 5)) expect_equal(length(unique(x$iso2c)), 3) # multiple indicators ind <- c("NY.GDP.PCAP.KD", "NY.GDP.PCAP.KN", "NY.GDP.PCAP.PP.KD") x <- WDI(indicator = ind, start=1990, end=1991) expect_gte(nrow(x), 30) expect_equal(ncol(x), 7) # bad countries co <- c('BADCOUNTRY_one', 'BADCOUNTRY_two', 'CA', 'MX', 'US') x <- expect_warning(WDI(country = co, start=1990, end=1991)) expect_equal(length(unique(x$iso2c)), 3) # bad indicator ind <- c("blah blah", "NY.GDP.PCAP.KD", "NY.GDP.PCAP.KN", "NY.GDP.PCAP.PP.KD", "NY.GDP.PCAP.PP.KD.87") x <- expect_warning(WDI(indicator = ind, start=1990, end=1991)) expect_gte(nrow(x), 30) expect_equal(ncol(x), 7) }) test_that('WDI(extra = TRUE)', { x <- WDI(country='US', indicator='NY.GDP.PCAP.KD', start=1991, end=1992, extra = TRUE) expect_s3_class(x, 'data.frame') expect_equal(dim(x), c(2, 13)) }) test_that("extra = TRUE provides observation status", { x <- WDI(country='US', indicator='NY.GDP.PCAP.KD', start=1991, end=1992, extra = TRUE) expect_true("status" %in% names(x)) expect_true(is.character(x$status)) }) test_that("behavior of start/end dates with latest", { expect_silent( WDI("all", "AG.AGR.TRAC.NO", start = NULL, end = NULL, latest = 5) ) expect_silent( WDI("all", "AG.AGR.TRAC.NO", start = 1980, end = 2000, latest = 5) ) }) test_that("latest provides a dataframe", { y <- WDI("all", "AG.AGR.TRAC.NO", start = NULL, end = NULL, latest = 5) expect_s3_class(y, "data.frame") z <- WDI("all", "AG.AGR.TRAC.NO", latest = 5) expect_s3_class(z, "data.frame") }) test_that("check that language doesn't change output format", { x <- suppressWarnings( WDI("all", "AG.AGR.TRAC.NO", language = "vi") ) expect_s3_class(x, "data.frame") }) test_that("default language is english", { x <- WDI("all", "AG.AGR.TRAC.NO") y <- WDI("all", "AG.AGR.TRAC.NO", language = "en") expect_true(identical(x, y)) }) test_that("NULL language is equivalent to english", { x <- WDI("all", "AG.AGR.TRAC.NO", language = NULL) y <- WDI("all", "AG.AGR.TRAC.NO", language = "en") expect_true(identical(x, y)) }) test_that("error if language not in list", { expect_error( WDI("all", "AG.AGR.TRAC.NO", language = "xyz") ) }) test_that("warning if language only supported partially", { expect_warning( WDI("all", "AG.AGR.TRAC.NO", language = "vi") ) }) test_that("languages_supported produces a list", { expect_type( languages_supported(), "list" ) }) test_that("rename on the fly", { ind <- c("women_private_sector" = "BI.PWK.PRVS.FE.ZS", "women_public_sector" = "BI.PWK.PUBS.FE.ZS") x <- WDI(country = 'CA', indicator = ind) expect_identical( colnames(x), c("country", "iso2c", "iso3c", "year", "women_private_sector", "women_public_sector")) }) k <- WDI()
Generated by dwww version 1.15 on Thu Jun 27 20:06:53 CEST 2024.