knitr::opts_chunk$set(echo = TRUE,
                      message = FALSE,
                      warning = FALSE)

This is a test of issue #29

try({
  if (grepl(pattern = "activityinfo-R$", rstudioapi::getActiveProject())) {
    devtools::load_all(".")
    withr::with_options(new = list(activityinfo.interactive = FALSE), {
      source(file = testthat::test_path("setup.R"))
    })
  }
}, silent = TRUE)

dt <- as.data.frame(getFormSchema(formId = personFormId))

knitr::kable(dt[,c("fieldCode", "fieldType")])


bedatadriven/activityinfo-R documentation built on Dec. 21, 2024, 8:23 a.m.