test_hicp.data.r
In hicp: Harmonised Index of Consumer Prices

# START

# set cores for testing on CRAN via devtools::check_rhub()
suppressPackageStartupMessages(library(restatapi))
options(restatapi_cores=1)


# Function datasets() -----------------------------------------------------


dt1 <- datasets()

expect_equal(data.table::is.data.table(dt1), TRUE)
expect_equal(nrow(dt1)>0, TRUE)
expect_equal(names(dt1), c("title","code","type","lastUpdate","lastModified","dataStart","dataEnd","values"))

Sys.sleep(1)



# Function datafilters() --------------------------------------------------


dt2 <- datafilters(id="prc_hicp_inw")

expect_equal(data.table::is.data.table(dt2), TRUE)
expect_equal(nrow(dt2)>0, TRUE)
expect_equal(names(dt2), c("concept","code","name"))

Sys.sleep(1)


# Function data() ---------------------------------------------------------


dt3 <- data(id="prc_hicp_inw", filter=list("geo"="EA"), date.range=c("2020", NA))

expect_equal(data.table::is.data.table(dt3), TRUE)
expect_equal(nrow(dt3)>0, TRUE)
expect_equal(names(dt3), c("coicop","geo","time","values"))
expect_equal(unique(as.character(dt3$geo)), "EA")
expect_equal(min(as.integer(dt3$time)), 2020)

# END