Nothing
# These functions are not exported.
populate_project_delete_single_arm <- function() {
if (!requireNamespace("testthat")) {
# nocov start
stop(
"The function REDCapR:::populate_project_delete_single_arm() cannot run if the ",
"`testthat` package is not installed. Please install it and try again."
)
# nocov end
}
credential <- retrieve_credential_testing(2626L)
project <- REDCapR::redcap_project$new(
redcap_uri = credential$redcap_uri,
token = credential$token
)
path_in <- system.file(
"test-data/delete-single-arm/delete-single-arm-data.csv",
package = "REDCapR"
)
# Write the file to disk (necessary only when you wanted to change the data). Don't uncomment; just run manually.
# returned_object <- redcap_read_oneshot(redcap_uri=uri, token=token, raw_or_label="raw")
# utils::write.csv(returned_object$data, file="./inst/test-data/project-delete_single_arm/delete_single_arm-data.csv", row.names=FALSE)
# returned_object_metadata <- redcap_metadata_read(redcap_uri=uri, token=token)
# utils::write.csv(returned_object_metadata$data, file="./inst/test-data/project-delete_single_arm/delete_single_arm-metadata.csv", row.names=FALSE)
# Read in the data in R's memory from a csv file.
ds_to_write <-
readr::read_csv(
path_in,
show_col_types = FALSE
)
# ds_to_write <- utils::read.csv(file="./inst/test-data/delete-single-arm/delete-single-arm-data.csv")
# Import the data into the REDCap project
testthat::expect_message(
returned_object <- REDCapR::redcap_write(
ds = ds_to_write,
redcap_uri = project$redcap_uri,
token = project$token,
verbose = TRUE
)
)
# Print a message and return a boolean value
base::message(base::sprintf(
"populate_project_delete_single_arm success: %s.",
returned_object$success
))
list(is_success = returned_object$success, redcap_project = project)
}
clear_project_delete_single_arm <- function(verbose = TRUE) {
if (!requireNamespace("testthat")) {
# nocov start
stop(
"The function REDCapR:::populate_project_delete_single_arm() cannot run if the ",
"`testthat` package is not installed. Please install it and try again."
)
# nocov end
}
path_delete_test_record <-
"https://bbmc.ouhsc.edu/redcap/plugins/redcapr/delete_redcapr_delete_single_arm.php"
# Returns a boolean value if successful
was_successful <- !httr::http_error(path_delete_test_record)
# Print a message and return a boolean value
if (verbose) {
base::message(base::sprintf(
"clear_project_delete_single_arm success: %s.",
was_successful
))
}
was_successful
}
clean_start_delete_single_arm <- function(delay_in_seconds = 1) {
checkmate::assert_numeric(delay_in_seconds, any.missing=FALSE, len=1, lower=0)
if (!requireNamespace("testthat")) {
# nocov start
stop(
"The function REDCapR:::populate_project_delete_single_arm() cannot run if the ",
"`testthat` package is not installed. Please install it and try again."
)
# nocov end
}
testthat::expect_message(
clear_result <- clear_project_delete_single_arm(),
regexp = "clear_project_delete_single_arm success: TRUE."
)
testthat::expect_true(clear_result, "Clearing the results from the delete_single_arm project should be successful.")
base::Sys.sleep(delay_in_seconds) #Pause after deleting records.
testthat::expect_message(
populate_result <- populate_project_delete_single_arm(),
regexp = "populate_project_delete_single_arm success: TRUE."
)
testthat::expect_true(populate_result$is_success, "Population of the delete_single_arm project should be successful.")
base::Sys.sleep(delay_in_seconds) #Pause after writing records.
populate_result
}
# populate_project_delete_single_arm()
# clear_project_delete_single_arm()
# clean_start_delete_single_arm()
# clean_start_delete_single_arm(batch = TRUE)
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.