tests/testthat/test-select_taxonomy.R

In FRBCesab/forcis: An R Client to Access the FORCIS Database

## Data for tests ----

df_cpr  <- data.frame("data_type" = rep("CPR North", 5),
                      "species"   = c("n_pachyderma", "n_pachyderma", 
                                      "conglobatus", "g_rubescens", 
                                      "g_rubescens"))

df_net  <- data.frame("data_type"     = rep("Net", 5),
                      "t_parkerae_VT" = c(1:5),
                      "conglobatus"   = c(1:5),
                      "g_rubescens"   = c(1:5))


## select_taxonomy() ----

test_that("Test get_species_names() for error", {
  
  expect_error(select_taxonomy(df_cpr, "VT"),
               paste0("This function cannot be used with CPR North data. ",
                      "There is no need to filter these data."),
               fixed = TRUE)
  
  expect_error(select_taxonomy(df_net, "LT"),
               "No species match the desired taxonomy",
               fixed = TRUE)
})

test_that("Test get_species_names() for success", {
  
  expect_silent(df <- select_taxonomy(df_net, "OT"))
  
  expect_true(is.data.frame(df))
  expect_equal(ncol(df), 3L)
  expect_equal(nrow(df), 5L)
  
  expect_silent(df <- select_taxonomy(df_net, "VT"))
  
  expect_true(is.data.frame(df))
  expect_equal(ncol(df), 2L)
  expect_equal(nrow(df), 5L)
})