tests/testthat/test-0_documentation.R

In diseasystore: Feature Stores for the 'diseasy' Framework

test_that("rd_templates works", {

  pkg_objects <- ls(base::getNamespace(testthat::testing_package()))
  rd_objects <- purrr::keep(pkg_objects, ~ startsWith(., "rd_"))

  rd_functions <- rd_objects[purrr::map_lgl(rd_objects, ~ rlang::is_function(get(.)))]

  for (rd_fun in rd_functions) {
    if (!("type" %in% names(formals(rd_fun)))) next

    for (type in c("field", "param")) {
      str <- expect_no_condition(do.call(rd_fun, args = list(type = type)))
      checkmate::expect_character(str)
    }
  }
})