tests/testthat/test-summarize_over_time.R

In finddx/shinyfind: Common Resources for FIND Shiny Applications

library(dplyr)
. <- get_data_all()
data_all <- .$data_all
country_last_update_info <- .$country_last_update_info

colnames_expected <- c(
  "unit", "country", "name", "pop_100k", "pop", "sum_all_new_cases",
  "sum_all_new_deaths", "sum_all_new_tests", "cap_new_cases", "sum_cap_new_cases", 
  "cap_new_deaths", "sum_cap_new_deaths", "cap_new_tests", "sum_cap_new_tests", 
  "cap100k_new_cases", "sum_cap100k_new_cases", "cap100k_new_deaths", 
  "sum_cap100k_new_deaths", "cap100k_new_tests", "sum_cap100k_new_tests",
  "all_new_cases", "all_new_deaths", "all_new_tests", "all_cum_cases", "all_cum_deaths",
  "all_cum_tests", "cap_cum_cases", "cap_cum_deaths", "cap_cum_tests", "cap100k_cum_cases", 
  "cap100k_cum_deaths", "cap100k_cum_tests", "pos", "continent", "income", 
  "who_region", "world"
)

test_that("Summarize of period for one day gives same result as already in data", {

  time_start <- as.Date("2021-06-17")
  time_end <- time_start
  data_filtered <-
    data_all |>
    filter(set == "country") |>
    select(-name, -set) |>
    left_join(country_last_update_info, by = "unit") |>
    filter(time == time_start)
  data_summarized_over_one_day <- shinyfind::summarize_over_time(data_filtered)


  a <- data_all |>
    filter(set == "country") |>
    filter(time == time_start) |>
    filter(unit == "ARE") |>
    pull(all_cum_cases)


  b <- data_summarized_over_one_day |>
    filter(unit == "ARE") |>
    pull(all_cum_cases)

  expect_equal(a, b)
  
  expect_s3_class(data_summarized_over_one_day, "data.frame")
  
  expect_true(
    all(
      colnames(data_summarized_over_one_day) == colnames_expected
    )
  )

})


 test_that("Sum over period is equal to cummulative value at the end of a period", {

   time_start <- as.Date("2020-01-01")
   time_end <- as.Date("2021-06-17")
   data_filtered <-
     data_all |>
     filter(set == "country") |>
     select(-name, -set) |>
     left_join(country_last_update_info, by = "unit") |>
     filter(!is.na(last_update))|>
     filter(dplyr::between(
       time,
       as.Date(time_start),
       as.Date(time_end)
     ))
   data_summarized_over_one_day <- shinyfind::summarize_over_time(data_filtered)

   a <- data_summarized_over_one_day |>
     filter(unit == "CHE") |>
     pull(all_cum_tests)

   b <- data_summarized_over_one_day |>
     filter(unit == "CHE") |>
     pull(sum_all_new_tests)

   expect_lt(abs(a/b - 1), 0.1)
 
 })