tests/testthat/test-fn_get.R

In ready4: Develop and Use Modular Health Economic Models

test_that("Tibble of modelling project data collections is retrieved from GitHub repository",{
  expect_no_error(dvs_tb <- get_datasets_tb("ready4-dev/ready4"))
  skip_on_cran()
  # expect_true(!is.null(dvs_tb))
  if(!is.null(dvs_tb)){
    expect_true(tibble::is_tibble(dvs_tb))
    expect_true(all(names(dvs_tb) == c("Dataverse", "Name", "Description", "Creator", "Contents", "Datasets_Meta")))
    expect_true("ready4fw" %in% dvs_tb$Dataverse)
  }
}
)
test_that("Tibble of modelling project libraries is retrieved from GitHub repository",{
  expect_no_error(libraries_tb <- get_libraries_tb())
  skip_on_cran()
  # expect_true(!is.null(libraries_tb))
  if(!is.null(libraries_tb)){
  expect_true(tibble::is_tibble(libraries_tb))
  expect_true(all(names(libraries_tb) == c("pt_ns_chr", "Type", "Section", "Link", "Library", "Vignettes" ,
                                     "Reference", "Vignettes_URLs", "Citation", "manual_urls_ls", "code_urls_ls",
                                     "Authors" , "Title", "DOI_chr")))
  }
}
)
test_that("Item retrieved correctly from lookup table",{
  dvs_tb <- get_datasets_tb()
  libraries_tb <- get_libraries_tb()
  if(!is.null(dvs_tb)){
    expect_no_error(name_1L_chr <- get_from_lup_obj(dvs_tb, match_value_xx = "TTU", match_var_nm_1L_chr = "Dataverse", target_var_nm_1L_chr = "Name"))
    expect_true(name_1L_chr == "Transfer to Utility")
  }
  if(!is.null(libraries_tb)){
    expect_no_error(type_1L_chr <- get_from_lup_obj(libraries_tb, match_value_xx = "ready4", match_var_nm_1L_chr = "pt_ns_chr", target_var_nm_1L_chr = "Section"))
    expect_true(type_1L_chr == "Framework")
  }
}
)

# "get_from_lup_obj","get_libraries_tb",