tests/testthat/test-prepare_climdex.R

In IDEMSInternational/cdms.products: Tool for the Analysis of Historical Climatic Data

library(cdms.products)
library(dplyr)
library(ggplot2)
library(tidyr)
library(lubridate)

zinder51 <- daily_niger %>%
  dplyr::filter(year == 1951 & station_name == "Zinder")

test_that("prepre_climdex correctly formats data when given year, month, day columns", {
  
  t1 <- prepare_climdex(data = zinder51, prcp = "rain", tmax = "tmax", tmin = "tmin", 
                        year = "year", month = "month", day = "day")
  r1 <- zinder51 %>%
    select(year, month, day, rain, tmax, tmin) %>%
    mutate(across(c(rain, tmax, tmin), replace_na, -99.9))
  expect_equal(t1, r1)
})

test_that("prepre_climdex correctly formats data when given date column only", {
  
  t1 <- prepare_climdex(data = zinder51, prcp = "rain", tmax = "tmax", tmin = "tmin", 
                        date = "date")
  r1 <- zinder51 %>%
    mutate(year = lubridate::year(date),
           month = lubridate::month(date),
           day = lubridate::day(date)) %>%
    select(year, month, day, rain, tmax, tmin) %>%
    mutate(across(c(rain, tmax, tmin), replace_na, -99.9))
  expect_equal(t1, r1)
})