tests/testthat/test-powoGenera.R

In DBOSlab/expowo: An R package for mining global plant diversity and distribution data

test_that("powoGenera works for one family search and no specified genus or country vectors, genus = NULL & country = NULL", {
  res_ex <- powoGenera("Martyniaceae",
                       verbose = FALSE,
                       save = FALSE)

  expect_equal(class(res_ex), "data.frame")
  expect_equal(is.character(res_ex[,2]), TRUE)
  expect_equal(is.character(res_ex[,4]), TRUE)
  expect_equal(is.numeric(res_ex[,6]), TRUE)
  expect_equal(ncol(res_ex), 12)
  expect_equal(nrow(res_ex), 5)
})

test_that("powoGenera works for more than one family and no specified genus orcountry vectors, genus = NULL & country = NULL", {
  res_ex <- powoGenera(c("Amborellaceae", "Begoniaceae"),
                       verbose = FALSE,
                       save = FALSE)

  expect_equal(class(res_ex), "data.frame")
  expect_equal(is.character(res_ex[,2]), TRUE)
  expect_equal(is.character(res_ex[,4]), TRUE)
  expect_equal(is.numeric(res_ex[,6]), TRUE)
  expect_equal(ncol(res_ex), 12)
  expect_equal(nrow(res_ex), 3)
})

test_that("powoGenera works for one family search and a specified genus vector, genus = Begonia & country = NULL", {
  res_ex <- powoGenera("Begoniaceae",
                       genus = "Begonia",
                       verbose = FALSE,
                       save = FALSE)

  expect_equal(class(res_ex), "data.frame")
  expect_equal(is.character(res_ex[,2]), TRUE)
  expect_equal(is.character(res_ex[,4]), TRUE)
  expect_equal(is.numeric(res_ex[,6]), TRUE)
  expect_equal(ncol(res_ex), 12)
  expect_equal(nrow(res_ex), 1)
})

test_that("powoGenera works for more than one family and a specified genus vector, genus = c(Amborella, Begonia⁠) & country = NULL", {
  res_ex <- powoGenera(c("Amborellaceae", "Begoniaceae"),
                       genus = c("Amborella", "Begonia"),
                       verbose = FALSE,
                       save = FALSE)

  expect_equal(class(res_ex), "data.frame")
  expect_equal(is.character(res_ex[,2]), TRUE)
  expect_equal(is.character(res_ex[,4]), TRUE)
  expect_equal(is.numeric(res_ex[,6]), TRUE)
  expect_equal(ncol(res_ex), 12)
  expect_equal(nrow(res_ex), 2)
})

test_that("powoGenera works for one family search and a specified country vector, genus = NULL & country = Brazil", {
  res_ex <- powoGenera("Martyniaceae",
                       country = "Brazil",
                       verbose = FALSE,
                       save = FALSE)

  expect_equal(class(res_ex), "data.frame")
  expect_equal(is.character(res_ex[,2]), TRUE)
  expect_equal(is.character(res_ex[,4]), TRUE)
  expect_equal(is.numeric(res_ex[,6]), TRUE)
  expect_equal(ncol(res_ex), 12)
  expect_equal(nrow(res_ex), 3)
})

test_that("powoGenera works for more than one family and a specified country vector, genus = NULL & country = BrazilL", {
  res_ex <- powoGenera(c("Amborellaceae", "Begoniaceae"),
                       country = "Brazil",
                       verbose = FALSE,
                       save = FALSE)

  expect_equal(class(res_ex), "data.frame")
  expect_equal(is.character(res_ex[,2]), TRUE)
  expect_equal(is.character(res_ex[,4]), TRUE)
  expect_equal(is.numeric(res_ex[,6]), TRUE)
  expect_equal(ncol(res_ex), 12)
  expect_equal(nrow(res_ex), 1)
})

test_that("powoGenera works for one family search and specified genus and country vectors, genus = Holoregmia & country = Brazil", {
  res_ex <- powoGenera("Martyniaceae",
                       genus = "Holoregmia",
                       country = "Brazil",
                       verbose = FALSE,
                       save = FALSE)

  expect_equal(class(res_ex), "data.frame")
  expect_equal(is.character(res_ex[,2]), TRUE)
  expect_equal(is.character(res_ex[,4]), TRUE)
  expect_equal(is.numeric(res_ex[,6]), TRUE)
  expect_equal(ncol(res_ex), 12)
  expect_equal(nrow(res_ex), 1)
})

test_that("powoGenera works for more than one family and specified genus and country vectors, genus = c(Begonia, Holoregmia⁠) & country = NULL", {
  res_ex <- powoGenera(c("Begoniaceae", "Martyniaceae"),
                       genus = c("Begonia", "Holoregmia"),
                       verbose = FALSE,
                       save = FALSE)

  expect_equal(class(res_ex), "data.frame")
  expect_equal(is.character(res_ex[,2]), TRUE)
  expect_equal(is.character(res_ex[,4]), TRUE)
  expect_equal(is.numeric(res_ex[,6]), TRUE)
  expect_equal(ncol(res_ex), 12)
  expect_equal(nrow(res_ex), 2)
})