Nothing
#' @describeIn armsMethods Delete arms from a project.
#' @order 3
#' @export
deleteArms <- function(rcon,
arms,
...){
UseMethod("deleteArms")
}
#' @rdname armsMethods
#' @order 6
#' @export
deleteArms.redcapApiConnection <- function(rcon,
arms,
refresh = TRUE,
...,
error_handling = getOption("redcap_error_handling"),
config = list(),
api_param = list()){
if (is.numeric(arms)) arms <- as.character(arms)
##################################################################
# Argument Validation
coll <- checkmate::makeAssertCollection()
checkmate::assert_character(arms,
any.missing = FALSE,
add = coll)
checkmate::assert_logical(x = refresh,
len = 1,
add = coll)
error_handling <- checkmate::matchArg(x = error_handling,
choices = c("null", "error"),
.var.name = "error_handling",
add = coll)
checkmate::assert_list(x = config,
names = "named",
add = coll)
checkmate::assert_list(x = api_param,
names = "named",
add = coll)
checkmate::reportAssertions(coll)
Arms <- rcon$arms()
checkmate::assert_subset(x = arms,
choices = as.character(Arms$arm_num),
add = coll)
checkmate::reportAssertions(coll)
###################################################################
# Make API Body List
body <- c(list(token = rcon$token,
content = "arm",
action = "delete"),
vectorToApiBodyList(arms, "arms"))
body <- body[lengths(body) > 0]
###################################################################
# Call the API
if (length(arms) > 0){ # Skip the call if there are no arms to delete
response <- makeApiCall(rcon,
body = c(body, api_param),
config = config)
if (response$status_code != 200) return(redcapError(response, error_handling))
}
message(sprintf("Arms Deleted: %s",
if (length(arms) > 0) paste0(arms, collapse = ", ") else "None."))
if (refresh && rcon$has_arms()){
rcon$refresh_arms()
rcon$refresh_projectInformation()
}
}
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.