#' @describeIn fromFileRepositoryMethods Export a file from the file repository.
#' @order 1
#' @export
exportFromFileRepository <- function(rcon,
doc_id,
dir = getwd(),
dir_create = FALSE,
...){
UseMethod("exportFromFileRepository")
}
#' @rdname fromFileRepositoryMethods
#' @order 4
#' @export
exportFromFileRepository.redcapApiConnection <- function(rcon,
doc_id,
dir = getwd(),
dir_create = FALSE,
...)
{
# Argument Validation ---------------------------------------------
coll <- checkmate::makeAssertCollection()
checkmate::assert_class(x = rcon,
classes = "redcapApiConnection",
add = coll)
checkmate::assert_integerish(x = doc_id,
len = 1,
any.missing = FALSE,
add = coll)
checkmate::assert_character(x = dir,
len = 1,
add = coll)
checkmate::assert_logical(x = dir_create,
len = 1,
add = coll)
checkmate::reportAssertions(coll)
if (!dir_create){
checkmate::assert_directory_exists(x = dir,
add = coll)
checkmate::reportAssertions(coll)
# NOTE: Creation of the directory, if needed, is handled by reconstituteFileFromExport
}
# Make the Body List ----------------------------------------------
body <- list(content = "fileRepository",
action = "export",
returnFormat = "csv",
doc_id = doc_id)
# Make the API Call -----------------------------------------------
response <- makeApiCall(rcon, body, ...)
ExportedFile <- reconstituteFileFromExport(response = response,
dir = dir,
dir_create = dir_create)
ExportedFile
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.