# ---- Local File Example ----------------------------
path <- system.file("misc/example.credentials", package = "REDCapR")
(p1 <- REDCapR::retrieve_credential_local(path, 153L))
(p2 <- REDCapR::retrieve_credential_local(path, 212L))
if (FALSE) {
# Create a skeleton of the local credential file to modify
path_demo <- base::tempfile(pattern = "temp", fileext = ".credentials")
create_credential_local(path_demo)
base::unlink(path_demo) # This is just a demo; don't delete the real file!
}
Run the code above in your browser using DataLab