tests/testthat/test_multiple_merging.R

In choisy/gdpm: Data from the General Department of Preventive Medicine (GDPM) of Vietnam

library(magrittr) # for the " %>% " pipe
library(dplyr) # for "bind_rows", "rename", "mutate", "select"
library(tidyr) # for "gather", "separate", "spread"
library(dictionary) # for "admin1_year"

context("`getid` return the good time range and provinces names when provide
  multiple diseases at the same time")

test_that("`getid` returns the correct time range", {

  expect_equal(
    range(getid(chickenpox, hepatitis, ili, dengue)$year),
    c(1980, 2017))

  expect_equal(
    range(getid_("chickenpox", "hepatitis", "ili", "dengue")$year),
    c(1980, 2017))

  expect_equal(
    range(getid(chickenpox, hepatitis, ili, dysenteria, shortest = TRUE)$year),
    c(1980, 2010))

  expect_equal(
    range(getid_("chickenpox", "hepatitis", "malaria", "dysenteria",
      shortest = TRUE)$year),
    c(2003, 2010))


  expect_equal(
    range(getid(chickenpox, shigella, ili, dengue,
      from = "1980", to = "2002")$year),
    c(1980, 2002))

  expect_equal(
    range(getid_("chickenpox", "hepatitis", "ili", "dengue",
      from = 2000)$year),
    c(2000, 2017))

  expect_equal(
    range(getid_("chickenpox", "hepatitis", "ili", "dengue",
      to = 2000)$year),
    c(1980, 2000))
})


test_that("`getid` returns the correct province name", {

  expect_equal(
    unique(getid(chickenpox, hepatitis, ili, dengue)$province) %>%
      c("Ha Son Binh") %>% sort,
    dictionary::vn_admin1_year$`1979-1990`)

  expect_equal(
    unique(getid_("chickenpox", "hepatitis", "ili", "dengue")$province) %>%
      c("Ha Son Binh") %>% sort,
    dictionary::vn_admin1_year$`1979-1990`)

  expect_equal(
    unique(getid(chickenpox, hepatitis, ili, dengue,
      shortest = TRUE)$province) %>%
        c("Ha Son Binh") %>% sort,
      dictionary::vn_admin1_year$`1979-1990`)

  expect_equal(
    unique(getid_("chickenpox", "hepatitis", "malaria", "dengue",
      shortest = TRUE)$province) %>%
      c("Ha Tay") %>% sort,
    dictionary::vn_admin1_year$`1997-2004`)

  expect_equal(
    unique(getid(chickenpox, ili, dengue, shigella,
      from = "1990", to = "2002")$province),
    dictionary::vn_admin1_year$`1990-1991`)

  expect_equal(
    unique(getid_("chickenpox", "hepatitis", "ili", "dengue",
      from = 1990, to = 2002)$province),
    dictionary::vn_admin1_year$`1979-1990`)

})



test_that("`getid` returns an error or a warning", {

  expect_warning(getid(chickenpox, ili, dengue, malaria, from = 1980,
    to = 2002))

  expect_warning(getid(malaria, from = 2015, to = 2022))

  expect_warning(getid(chickenpox, ili, dengue, malaria, from = 1960,
                       to = 2002))

  expect_error(getid(chickenpox, ili, dengue, malaria, from = 2028))

  expect_error(getid_("chickenpox", "dengue", "ili", "vhf", "malaria",
    shortest = TRUE))

  expect_error(getid_("vhf", "mumps", from = "1990", to = "1980"))

})