tests/testthat/test-data_series.R

In ineapir: Obtaining Data Published by the National Statistics Institute

test_that("test unnest", {
  skip_on_cran()
  expect_s3_class(get_data_series(codSeries = "IPC251856", unnest = TRUE, nlast = 5), "data.frame")
})

test_that("test det", {
  skip_on_cran()
  expect_s3_class(get_data_series(codSeries = "IPC251856", unnest = TRUE, nlast = 5, det = 2), "data.frame")
})

test_that("test date", {
  skip_on_cran()
  expect_s3_class(get_data_series(codSeries = "IPC251856", unnest = TRUE, nlast = 5,
                                  dateStart = c("2023/01/01","2024/01/01"),
                                  dateEnd = c("2023/01/01","2024/01/01")), "data.frame")
})

test_that("test filter", {
  skip_on_cran()
  expect_s3_class(get_data_series_filter(operation = "IPC", periodicity = 1, nlast = 5, unnest = TRUE, validate = FALSE,
                                         filter = list("115"= "28", "3" = "84", "762" = "304092")), "data.frame")

})