tests/testthat/test-compute_concentrations.R

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

## Data for test ----

df <- read.table(
  system.file(
    file.path("extdata", "FORCIS_net_sample.csv"),
    package = "forcis"
  ),
  dec = ".",
  sep = ";"
)

df <- add_data_type(df, "Net")
df <- select_taxonomy(df, "VT")

df2 <- df
df2 <- add_data_type(df2, "Sediment trap")

df3 <- vroom::vroom(
  system.file(
    file.path("extdata", "FORCIS_cpr_north_sample.csv"),
    package = "forcis"
  ),
  delim = ";",
  altrep = FALSE,
  show_col_types = FALSE
)

df3 <- add_data_type(df3, "CPR North")


## compute_concentrations() ----

test_that("Test compute_concentrations() for error", {
  expect_error(
    compute_concentrations(df2),
    paste0(
      "This function is not designed to work with ",
      "'Sediment trap' data"
    ),
    fixed = TRUE
  )
})

test_that("Test compute_concentrations() for success", {
  expect_message(res <- compute_concentrations(df))

  expect_true(is.data.frame(res))
  expect_equal(ncol(res), 16L)
  expect_equal(nrow(res), 39032L)

  expect_message(res <- compute_concentrations(df, aggregate = FALSE))

  expect_true(is.data.frame(res))
  expect_equal(ncol(res), 19L)
  expect_equal(nrow(res), 134680L)

  res <- compute_concentrations(df3)

  expect_true(is.data.frame(res))
  expect_equal(ncol(res), 78L)
  expect_equal(nrow(res), 5L)
})