revdep/checks.noindex/journalabbr/old/journalabbr.Rcheck/tests/testthat/test-add_abbrtable.R

test_that("Determine data type, Function add_abbrtable()", {
  csvpath <- system.file("extdata", "myabbr.csv", package = "journalabbr", mustWork = TRUE)
  abbrtable_user <- add_abbrtable(file = csvpath, header = FALSE, sep = ",")
  colnames(abbrtable_user)
  expect_true(is.data.table(abbrtable_user))
})
mtfairbanks/gdt documentation built on Jan. 26, 2025, 8:24 a.m.