tests/testthat/test-getCode.R

In LimaRAF/plantR: Managing Species Records from Biological Collections

test_that("getCode works", {
  df <- data.frame(institutionCode = c("ASU", "UNEMAT", "MOBOT", "NYBG"),
                   collectionCode = c("ASU-PLANTS", "NX-FANEROGAMAS", "MO", "NY"),
                   stringsAsFactors = FALSE)
  df_code <- getCode(df)
  expect_equal(setdiff(names(df), names(df_code)), character(0))
  expect_equal(setdiff(names(df_code), names(df)), c("collectionCode.new", "collectionObs"))
  expect_equal(nrow(df_code), nrow(df))
})

test_that("getCode parameter works", {
  df <- data.frame(institutionCodeA = c("ASU", "UNEMAT", "MOBOT", "NYBG"),
                   collectionCodeB = c("ASU-PLANTS", "NX-FANEROGAMAS", "MO", "NY"),
                   stringsAsFactors = FALSE)
  df_code <- getCode(df,
                     inst.code = "institutionCodeA",
                     col.code = "collectionCodeB",
                     drop = c("ordem.colecao","collectioncode.gbif",
                              "institutioncode.gbif",
                              "collection.string"))
  expect_equal(setdiff(names(df), names(df_code)), character(0))
  #check that all column names are created
  expect_true(all(setdiff(names(df_code), names(df)) %in%
                    c("collectionCode.new", "collectionObs", "organization")))
  expect_equal(nrow(df_code), nrow(df))
})