tests/testthat/test_formatting_functions.R

In khufkens/phenor: An R phenology Modelling Framework

# test formatting functions

# test all data downloads
test_that("test downloading functions",{

  # NPN data
  expect_message(
    pr_dl_npn(species = 3,
              internal = FALSE,
              start = "2001-01-01",
              end = "2001-12-31")
  )

  expect_error(
    pr_dl_npn(species = 3,
              internal = FALSE,
              start = "2000-01-01",
              end = "2000-12-31")
  )

  df <- pr_dl_npn(species = 3,
                  internal = TRUE,
                  start = "2001-01-01",
                  end = "2001-12-31")

  expect_type(df,"list")

})

test_that("test formatting functions",{

  df <- pr_dl_npn(species = 3,
                  internal = TRUE,
                  start = "2001-01-01",
                  end = "2001-12-31")

  df <- pr_fm_npn(df)

  expect_type(df,"list")

  # check npn meta-data function
  expect_output(check_npn_phenophases(list = TRUE))
  l <- check_npn_phenophases(phenophase = 61, list = FALSE)
  expect_type(l,"logical")
  expect_output(check_npn_phenophases(phenophase = 61, list = TRUE))
  l <- check_npn_species(species = 3, list = TRUE)
  expect_type(l,"list")
  l <- check_npn_species(list = TRUE)
  expect_type(l,"list")

  # csv data
  f <- data.frame(
    id = "site1",
    lat = 42,
    lon = -110,
    phenophase = "spring",
    year = 2000,
    doy = 120)

  t <- tempfile()
  write.table(
    f,
    t,
    row.names = FALSE,
    col.names = TRUE,
    quote = FALSE,
    sep = ",")

  # format data
  npn_data <- pr_fm_csv(t, phenophase = "spring")
  expect_type(npn_data, "list")

  # phenocam formatting
  phenocam_data <- pr_fm_phenocam(path = system.file(
    "extdata",
    package = "phenor",
    mustWork = TRUE))
  expect_type(phenocam_data, "list")

  # MODISTools formatting?

})