tests/testthat/test-data-import.R

In jnshsrs/PEDISdata: Preprocessing PEDIS data files

# read data
pedis_df <- read_pedis(file = "../../data/pedis1.xlsx")
pedis_dfs <- read_all_pedis(path = "../../data/")

test_that("read_pedis returns df_tbl", {
  testthat::expect_true(tibble::is_tibble(pedis_df)) # is df
  testthat::expect_true(tibble::is_tibble(pedis_dfs)) #  is df
  testthat::expect_true(!any(duplicated(pedis_dfs$case_id)))  # no duplicates in case_id
})