tests/testthat/test-owid.R

In owidR: Import Data from Our World in Data

skip_on_cran()
skip_if(!curl::has_internet())
skip_if(httr::http_error("ourworldindata.org"))

test_that("test core owid function", {
  search_result <- owid_search("gdp")
  data <- owid("water-productivity", rename = "water_prod")
  expect_equal(class(data), c("owid", "data.table", "data.frame"))
  expect_equal(colnames(data), c("entity", "code", "year", "water_prod"))
})

test_that("test multiple cols", {
  data <- owid("learning-outcomes-vs-gdp-per-capita",
    rename = c("pop", "continent", "learning", "gdp")
  )
  expect_equal(colnames(data), c("entity", "code", "year", "pop", "continent", "learning", "gdp"))
})