tests/testthat/test-prepare_cdt_daily.R

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

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

data("daily_niger"); data("stations_niger")
# create metadata
metadata <- stations_niger %>% 
  select(-id, -daily) %>% 
  tidyr::pivot_longer(cols = c(lat, long, alt), names_to = "names", values_to = "values")

# create daily summary data
daily_summary_data <- daily_niger %>%
  dplyr::group_by(station_name, year, date) %>%
  dplyr::summarise(date = date, sum = sum(tmax))

# create expected daily output
x_daily_data <- daily_summary_data %>%
  dplyr::ungroup() %>%
  dplyr::select(c(station_name, date, sum)) %>%
  tidyr::pivot_longer(cols = c(date), names_to = ".x", values_to = "names") %>%
  dplyr::select(-c(`.x`)) %>%
  mutate(names = as.character(names)) %>%
  dplyr::rename(values = sum)
x_daily <- dplyr::bind_rows(metadata, x_daily_data)
x_daily <- x_daily %>%
  tidyr::pivot_wider(names_from = station_name, values_from = values)

# create functions daily output
y_daily <- prepare_cdt_daily(data = daily_summary_data, date_time = "date",
                             station = "station_name", element = "sum", metadata = stations_niger,
                             latitude = "lat", longitude = "long", altitude = "alt")

test_that("prepare_cdt_daily gives correct values", {
  expect_equal(x_daily,y_daily)
})

test_that("prepare_cdt_daily returns an error when conditions are not met", {
  mandatory_inputs <- list(data = daily_summary_data, date_time = "date",
                           station = "station_name", element = "sum", metadata = stations_niger,
                           latitude = "lat", longitude = "long", altitude = "alt")
  
  expect_error(prepare_cdt_daily(),)
  expect_error(do.call(prepare_cdt_daily, mandatory_inputs[-1]))
  expect_error(do.call(prepare_cdt_daily, mandatory_inputs[-2]))
  expect_error(do.call(prepare_cdt_daily, mandatory_inputs[-3]))
  expect_error(do.call(prepare_cdt_daily, mandatory_inputs[-4]))
  expect_error(do.call(prepare_cdt_daily, mandatory_inputs[-5]))
  expect_error(do.call(prepare_cdt_daily, mandatory_inputs[-6]))
  expect_error(do.call(prepare_cdt_daily, mandatory_inputs[-7]))
  expect_error(do.call(prepare_cdt_daily, mandatory_inputs[-8]))
})