tests/testthat/test-participants.R

In gongcastro/multilex: Multilingual lexical assessment using online surveys

context("ml_participants")

ml_connect()

participants <- ml_participants()


test_that("ml_participants columns are the right classes", {

  expect_true(is.character(participants$id))
  expect_true(is.character(participants$id_exp))
  expect_true(is.character(participants$id_db))
  expect_true(is.character(participants$code))
  expect_true(is.numeric(participants$time))
  expect_true(lubridate::is.Date(participants$date_birth))
  expect_true(is.numeric(participants$age_now))
  expect_true(is.character(participants$study))
  expect_true(is.character(participants$version))
  expect_true(is.character(participants$randomisation))
  expect_true(lubridate::is.Date(participants$date_test))
  expect_true(lubridate::is.Date(participants$date_sent))
  expect_true(is.character(participants$call))
  expect_true(is.character(participants$comments))
})

dups_exist <- test_that("participants and times are not duplicated", {
  expect_false(any(duplicated(select(participants, id, time))))
})

if (!dups_exist){
  message("Duplicated rows: ")
  participants %>%
    count(id, time) %>%
    filter(n > 1) %>%
    print()
}