tests/testthat/test-extract_tibble.R

In REDCapTidieR: Extract 'REDCap' Databases into Tidy 'Tibble's

# Load Sample REDCapTidieR Database Longitudinal Output
redcaptidier_longitudintal_db <-
  readRDS(system.file("testdata/redcaptidier_longitudinal_db.RDS", package = "REDCapTidieR"))

test_that("extract_tibbles works with a vector and tidyselect selectors", {
  # Test tidyselectors work
  expected_everything_out <- list(
    nonrepeated = redcaptidier_longitudintal_db$redcap_data[[1]],
    nonrepeated2 = redcaptidier_longitudintal_db$redcap_data[[2]],
    repeated = redcaptidier_longitudintal_db$redcap_data[[3]]
  )
  expected_starts_with_out <- list(
    nonrepeated = redcaptidier_longitudintal_db$redcap_data[[1]],
    nonrepeated2 = redcaptidier_longitudintal_db$redcap_data[[2]]
  )
  expected_ends_with_out <- list(
    nonrepeated2 = redcaptidier_longitudintal_db$redcap_data[[2]]
  )
  expected_traditional_out <- list(
    nonrepeated = redcaptidier_longitudintal_db$redcap_data[[1]],
    repeated = redcaptidier_longitudintal_db$redcap_data[[3]]
  )

  expect_equal(
    redcaptidier_longitudintal_db %>%
      extract_tibbles(tbls = everything()),
    expected_everything_out
  )
  expect_equal(
    redcaptidier_longitudintal_db %>%
      extract_tibbles(tbls = starts_with("non")),
    expected_starts_with_out
  )
  expect_equal(
    redcaptidier_longitudintal_db %>%
      extract_tibbles(tbls = ends_with("2")),
    expected_ends_with_out
  )
  expect_equal(
    redcaptidier_longitudintal_db %>%
      extract_tibbles(tbls = c("nonrepeated", "repeated")),
    expected_traditional_out
  )
  expect_error(extract_tibbles(redcaptidier_longitudintal_db, tbls = c("repeated", "fake_instrument_name")))

  expect_error(extract_tibbles(123), class = "check_supertbl")
})

test_that("extract_tibble works", {
  expect_error(extract_tibble(redcaptidier_longitudintal_db, "fake_instrument_name"))
  expect_error(extract_tibble(123, "my_tibble"), class = "check_supertbl")

  supertbl <- tibble(redcap_data = list()) %>%
    as_supertbl()

  expect_error(extract_tibble(supertbl, tbl = 123), class = "check_character")
  expect_error(extract_tibble(supertbl, tbl = letters[1:3]), class = "check_character")

  expected_out <- redcaptidier_longitudintal_db$redcap_data[[1]]
  expect_equal(
    expected_out,
    redcaptidier_longitudintal_db %>%
      extract_tibble(tbl = "nonrepeated")
  )
})