Nothing
library(testthat)
credential <- retrieve_credential_testing(817L)
record <- 1
instrument <- "participant_morale_questionnaire"
test_that("Smoke Test", {
testthat::skip_on_cran()
expect_message(
REDCapR::redcap_survey_link_export_oneshot(
record = record,
instrument = instrument,
redcap_uri = credential$redcap_uri,
token = credential$token
)
)
})
test_that("Vanilla", {
testthat::skip_on_cran()
expect_message(
result <- REDCapR::redcap_survey_link_export_oneshot(
record = record,
instrument = instrument,
redcap_uri = credential$redcap_uri,
token = credential$token
)
)
expect_equal(result$survey_link, "https://bbmc.ouhsc.edu/redcap/surveys/?s=8KuzSLMHf6")
expect_true(result$success)
expect_equal(result$status_code, 200L)
expect_equal(result$instrument, "participant_morale_questionnaire")
expect_equal(result$records_affected_count, 1L)
expect_equal(result$affected_ids, c("1"))
})
test_that("Nonexistent Record ID", {
testthat::skip_on_cran()
record_bad <- -1
expect_message(
result <- REDCapR::redcap_survey_link_export_oneshot(
record = record_bad,
instrument = instrument,
redcap_uri = credential$redcap_uri,
token = credential$token
)
)
expect_equal(result$survey_link, character(0))
expect_false(result$success)
expect_equal(result$status_code, 400L)
expect_equal(result$instrument, "participant_morale_questionnaire")
expect_equal(result$records_affected_count, 0L)
expect_equal(result$affected_ids, character(0))
expect_equal(result$raw_text, "ERROR: The record '-1' does not exist")
})
rm(credential, record, instrument)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.