tests/testthat/test-28-data_input_output.R

In weecology/portalPredictionsModels: Model and Forecast Portal Rodent Dynamics

context(desc = "data input and output functions")

main1 <- file.path(tempdir(), "testing1")
main2 <- file.path(tempdir(), "testing2")
main3 <- file.path(tempdir(), "testing3")




test_that(desc = "read_directory_config works but errors out of directory", {

  skip_on_cran()

  dc <- read_directory_configuration(main = main2)
  expect_is(dc, "list")
  expect_error(read_directory_config())

})


test_that(desc = "read_climate_forecasts reads them in right", {

  skip_on_cran()

  cc <- read_climate_forecasts(main = main2)
  expect_is(cc, "data.frame")
  expect_equal(colnames(cc), c("date", "mintemp", "meantemp", "maxtemp", "precipitation"))

})


test_that(desc = "write_data works if overwriting or not", {

  skip_on_cran()

  expect_silent(controls <- read_data(main = main2, "rodents_dataset", "controls"))
  expect_message(write_data(controls, main = main2, save = TRUE,
                            filename = "rodents_controls.csv",
                            overwrite = FALSE))
  expect_message(write_data(controls, main = main2, save = TRUE,
                            filename = "rodents_controls.csv",
                            overwrite = TRUE))

  jsontest <- list(test = 1312)
  expect_message(write_data(jsontest, main = main2, save = TRUE,
                            filename = "jsontest.json"))
  expect_message(write_data(jsontest, main = main2, save = TRUE,
                            filename = "jsontest.json", overwrite = FALSE))

  expect_error(write_data(jsontest, main = main2, save = TRUE,
                            filename = "jsontest.failure", overwrite = FALSE))

})



test_that(desc = "read_data works when the data are present", {

  skip_on_cran()

  expect_silent(all <- read_data(main = main2, "rodents_dataset", "all"))
  expect_is(all, "data.frame")
  expect_silent(controls <- read_data(main = main2, "rodents_dataset",
                                      "controls"))
  expect_is(controls, "data.frame")
  expect_silent(controls <- read_data(main = main2, "rodents", "controls"))
  expect_is(controls, "list")
  expect_silent(covariates <- read_data(main = main2, "covariates"))
  expect_is(covariates , "data.frame")
  expect_silent(covariate_forecasts <- read_data(main = main2, "climate_forecasts"))
  expect_is(covariate_forecasts , "data.frame")
  expect_silent(moons <- read_data(main = main2, "newmoons"))
  expect_is(moons, "data.frame")
  expect_silent(metadata <- read_data(main = main2, "metadata"))
  expect_is(metadata, "list")

})