if (FALSE) {
records_to_delete <- c(102, 103, 105, 120)
# Deleting from a non-longitudinal project with no defined arms:
REDCapR::redcap_delete(
redcap_uri = uri,
token = token,
records_to_delete = records_to_delete,
)
# Deleting from a project that has arms or is longitudinal:
arm_number <- 2L # Not the arm name
REDCapR::redcap_delete(
redcap_uri = uri,
token = token,
records_to_delete = records_to_delete,
arm_of_records_to_delete = arm_number
)
}
# If there's a chance you'll pass non-existing record_id values,
# consider limiting to those that are returned from a preliminary query.
if (FALSE) {
# Return list of existing records
records_existing <-
REDCapR::redcap_read_oneshot(
redcap_uri = uri,
token = token,
fields = "record_id",
verbose = FALSE
)$data$record_id
# Specify IDs to delete (w/ some that don't exist)
records_with_extras <-
c(
66, # Doesn't exist
102, # Exists
103, # Exists
166 # Doesn't exist
)
# Find the intersection to remove the bad IDs
records_subset <-
records_existing %>%
intersect(records_with_extras)
# Deleting only existing arms:
REDCapR::redcap_delete(
redcap_uri = uri,
token = token,
records_to_delete = records_subset,
)
}
Run the code above in your browser using DataLab