tests/testthat/test-input_apply_decision_rules.R

In trias-project/trias: Process Data for the Project Tracking Invasive Alien Species (TrIAS)

context("test_input_decision_rules")

df_dr <- dplyr::tibble(
  taxonID = c(rep(1008955, 10), rep(2493598, 3)),
  y = c(seq(2009, 2018), seq(2016, 2018)),
  obs = c(1, 0, 1, 1, 0, 0, 0, 0, 0, 0, 1, 3, 0)
)

df_duplicate <- dplyr::tibble(taxonID = c(1, 1), y = c(2001, 2001), obs = c(5, 3))

df_duplicates <- dplyr::tibble(
  taxonID = c(1, 1, 2, 2, 3),
  y = c(2000, 2001, 2001, 2001, 2000),
  obs = c(0, 0, 1, 0, 1)
)

df_hole <- dplyr::tibble(
  taxonID = c(rep(1234, 3)),
  y = c(2010, 2011, 2018),
  obs = c(1, 2, 5)
)

df_holes <- dplyr::tibble(
  taxonID = c(rep(1234, 3), rep(1256, 4)),
  y = c(2010, 2011, 2018, 2014, 2016, 2018, 2020),
  obs = c(1, 2, 3, 5, 1, 2, 5)
)

testthat::test_that("Test inputs' types.", {
  # df
  testthat::expect_error(apply_decision_rules(
    df = 3,
    y_var = "n_observations",
    eval_year = 2018
  ),
  paste(
    "3 is not a data frame.",
    "Check value of argument df."
  ),
  fixed = TRUE
  )
  # y_var
  testthat::expect_error(apply_decision_rules(
    df = df_dr,
    y_var = 3,
    eval_year = 2018
  ),
  paste(
    "3 is not a character vector.",
    "Check value of argument y_var."
  ),
  fixed = TRUE
  )
  # eval_year
  testthat::expect_error(apply_decision_rules(
    df = df_dr,
    y_var = "n_observations",
    eval_year = "yyyy"
  ),
  paste(
    "yyyy is not a numeric or integer vector.",
    "Check value of argument eval_year."
  ),
  fixed = TRUE
  )
  testthat::expect_error(apply_decision_rules(
    df = df_dr,
    y_var = "n_observations",
    eval_year = list(a = 2018)
  ),
  paste(
    "2018 is not a numeric or integer vector.",
    "Check value of argument eval_year."
  ),
  fixed = TRUE
  )
  # year
  testthat::expect_error(apply_decision_rules(
    df = df_dr,
    y_var = "n_observations",
    year = 3,
    eval_year = 2018
  ),
  paste(
    "3 is not a character vector.",
    "Check value of argument year."
  ),
  fixed = TRUE
  )
  # taxonKey
  testthat::expect_error(apply_decision_rules(
    df = df_dr,
    y_var = "n_observations",
    eval_year = 2018,
    taxonKey = 3
  ),
  paste(
    "3 is not a character vector.",
    "Check value of argument taxonKey."
  ),
  fixed = TRUE
  )
})

testthat::test_that("Test input length.", {
  testthat::expect_error(
    apply_decision_rules(
      df = df_dr,
      y_var = c("n_observations", "why a second col?"),
      eval_year = 2018
    ),
    paste("Multiple values for argument y_var provided.")
  )
  testthat::expect_error(
    apply_decision_rules(
      df = df_dr,
      y_var = c("n_observations"),
      year = c("year", "add a second to screw my code"),
      eval_year = 2018
    ),
    paste("Multiple values for argument year provided.")
  )
  testthat::expect_error(
    apply_decision_rules(
      df = df_dr,
      y_var = c("n_observations"),
      eval_year = 2018,
      taxonKey = c("taxonKey", "taxon_col")
    ),
    paste("Multiple values for argument taxonKey provided.")
  )
})

testthat::test_that("Test df contains all needed columns and information.", {
  testthat::expect_error(apply_decision_rules(
    df = df_dr,
    y_var = "y_var_wrong",
    eval_year = 2018,
    year = "y",
    taxonKey = "taxonID"
  ),
  paste(
    "The column y_var_wrong is not present in df.",
    "Check value of argument y_var."
  ),
  fixed = TRUE
  )
  testthat::expect_error(
    apply_decision_rules(
      df = df_dr,
      taxonKey = "taxonID",
      y_var = "obs",
      year = "bad_year_colname",
      eval_year = 2018
    ),
    paste(
      "The column bad_year_colname is not present in df.",
      "Check value of argument year."
    )
  )
  testthat::expect_error(apply_decision_rules(
    df = df_dr,
    y_var = "obs",
    year = "y",
    eval_year = 2018,
    taxonKey = "bad_key_col"
  ),
  paste(
    "The column bad_key_col is not present in df.",
    "Check value of argument taxonKey."
  ),
  fixed = TRUE
  )
  testthat::expect_error(
    apply_decision_rules(
      df = df_dr,
      y_var = "obs",
      year = "y",
      eval_year = 1980,
      taxonKey = "taxonID"
    ),
    paste(
      "Evaluation year not present in df.",
      "Check value of argument eval_year."
    )
  )
  testthat::expect_error(
    apply_decision_rules(
      df = df_duplicate,
      y_var = "obs",
      year = "y",
      eval_year = 2001,
      taxonKey = "taxonID"
    ),
    paste0(
      "Timeseries in column y ",
      "of one or more taxa contain duplicates."
    )
  )
  testthat::expect_error(
    apply_decision_rules(
      df = df_duplicates,
      y_var = "obs",
      year = "y",
      eval_year = 2001,
      taxonKey = "taxonID"
    ),
    paste0(
      "Timeseries in column y ",
      "of one or more taxa contain duplicates."
    )
  )
  testthat::expect_error(
    apply_decision_rules(
      df = df_hole,
      y_var = "obs",
      year = "y",
      eval_year = 2018,
      taxonKey = "taxonID"
    ), paste0(
      "The timeseries of these taxa are not valid ",
      "as they contain missing time values: 1234."
    )
  )
  testthat::expect_error(
    apply_decision_rules(
      df = df_holes,
      y_var = "obs",
      year = "y",
      eval_year = 2018,
      taxonKey = "taxonID"
    ),
    paste0(
      "The timeseries of these taxa are not valid ",
      "as they contain missing time values: 1234, 1256."
    )
  )
})