tests/testthat/test-convert-factor.R

In alketh/atlantistools: Process and Visualise Output from Atlantis Models

context("convert_factor tests")

d <- system.file("extdata", "setas-model-new-trunk", package = "atlantistools")
file <- file.path(d, "SETasGroupsDem_NoCep.csv")

fgs <- load_fgs(file)

newcol <- convert_factor(data_fgs = fgs, col = fgs$Name)
newcol2 <- convert_factor(data_fgs = fgs, col = fgs$Code)

test_that("test convert_factor", {
  expect_is(fgs$Name, "character")
  expect_is(fgs$Code, "character")
  expect_is(fgs$LongName, "character")
  expect_is(newcol, "character")
  expect_equal(newcol, fgs$LongName)
  expect_equal(newcol2, fgs$LongName)
  expect_error(convert_factor(data_fgs = fgs, col = fgs$LongName), "match the entries in parameter col!")
})