tests/testthat/test_load_ramlegacy.R

In ropensci/ramlegacy: Download and Read RAM Legacy Stock Assessment Database

context("test load_ramlegacy works as expected")

test_that("load_ramlegacy works as expected when particular dataframes are requested for older version", {
  skip_on_cran()
  temp_path <- tempfile("ramlegacy", tempdir())
  download_ramlegacy("1.0", temp_path)
  vers_path <- file.path(temp_path, "1.0")
  rds_path <- file.path(vers_path, "v1.0.rds")
  lst_dfs <- load_ramlegacy("1.0", tables = c("area", "bioparams"), ram_path = rds_path)
  expect_equal(length(lst_dfs), 2)
  expect_true(is.data.frame(lst_dfs[[1]]))
})

test_that("load_ramlegacy works as expected when particular dataframes are requested for newer version", {
  skip_on_cran()
  temp_path <- tempfile("ramlegacy", tempdir())
  download_ramlegacy("4.44", temp_path)
  vers_path <- file.path(temp_path, "4.44")
  dir_path <- file.path(vers_path, "RLSADB v4.44")
  subdir_path <- file.path(dir_path, "DB Files With Assessment Data")
  rds_path <- file.path(subdir_path, "v4.44.rds")
  lst_dfs <- load_ramlegacy("4.44", tables = c("area", "bioparams"), ram_path = rds_path)
  expect_equal(length(lst_dfs), 2)
  expect_true(is.data.frame(lst_dfs[[2]]))
})

test_that("load_ramlegacy works as expected when all dataframes are requested for newer version", {
  skip_on_cran()
  temp_path <- tempfile("ramlegacy", tempdir())
  download_ramlegacy("4.44", temp_path)
  vers_path <- file.path(temp_path, "4.44")
  dir_path <- file.path(vers_path, "RLSADB v4.44")
  subdir_path <- file.path(dir_path, "DB Files With Assessment Data")
  rds_path <- file.path(subdir_path, "v4.44.rds")
  lst_dfs <- load_ramlegacy("4.44", ram_path = rds_path)
  expect_equal(length(lst_dfs), 26)
  expect_true(is.data.frame(lst_dfs[[1]]))
})

test_that("load_ramlegacy works as expected when all dataframes are requested for older version", {
  skip_on_cran()
  temp_path <- tempfile("ramlegacy", tempdir())
  download_ramlegacy("4.3", temp_path)
  vers_path <- file.path(temp_path, "4.3")
  rds_path <- file.path(vers_path, "v4.3.rds")
  lst_dfs <- load_ramlegacy("4.3", ram_path = rds_path)
  expect_equal(length(lst_dfs), 24)
  expect_true(is.data.frame(lst_dfs[[1]]))
})


test_that("load_ramlegacy errors out when version is not present locally", {
  skip_on_cran()
  temp_path <- tempfile("ramlegacy", tempdir())
  # pass in the path to rds to load_ramlegacy
  rds_path <- file.path(temp_path, "1.0/v1.0.rds")
  expect_error(
    load_ramlegacy(version = "1.0", ram_path = rds_path),
    "Version 1.0 not found locally."
  )
})

test_that("defaults to all dfs in latest version when vers & tables not specified", {
  skip_on_cran()
  temp_path <- tempfile("ramlegacy", tempdir())
  download_ramlegacy("4.44", temp_path)
  vers_path <- file.path(temp_path, "4.44")
  dir_path <- file.path(vers_path, "RLSADB v4.44")
  subdir_path <- file.path(dir_path, "DB Files With Assessment Data")
  rds_path <- file.path(subdir_path, "v4.44.rds")
  lst_dfs <- load_ramlegacy(ram_path = rds_path)
  expect_equal(length(lst_dfs), 26)
  expect_true(is.data.frame(lst_dfs[[1]]))
})

test_that("defaults to latest version when vers not specified but tables is specified", {
  skip_on_cran()
  temp_path <- tempfile("ramlegacy", tempdir())
  download_ramlegacy("4.44", temp_path)
  vers_path <- file.path(temp_path, "4.44")
  dir_path <- file.path(vers_path, "RLSADB v4.44")
  subdir_path <- file.path(dir_path, "DB Files With Assessment Data")
  rds_path <- file.path(subdir_path, "v4.44.rds")
  lst_dfs <- load_ramlegacy(tables = c("area", "tb.data"), ram_path = rds_path)
  expect_equal(length(lst_dfs), 2)
  expect_true(is.data.frame(lst_dfs[[1]]))
})