library(REDCapR) #Load the package into the current R session.
uri <- "https://bbmc.ouhsc.edu/redcap/api/"
token <- "D70F9ACD1EDD6F151C6EA78683944E98"
## Not run:
# project <- redcap_project$new(redcap_uri=uri, token=token)
# dsAll <- project$read()
#
# #Demonstrate how repeated calls are more concise when the token and url aren't always passed.
# dsThreeColumns <- project$read(fields=c("record_id", "sex", "height"))$data
#
# idsOfMales <- dsThreeColumns[dsThreeColumns$sex==1, "record_id"]
# idsOfShorties <- dsThreeColumns[dsThreeColumns$height < 40, "record_id"]
#
# dsMales <- project$read(records=idsOfMales, batch_size=2)$data
# dsShorties <- project$read(records=idsOfShorties)$data
#
# #Switch the Genders
# sex_original <- dsThreeColumns$sex
# dsThreeColumns$sex <- (1 - dsThreeColumns$sex)
# project$write(dsThreeColumns)
#
# #Switch the Genders back
# dsThreeColumns$sex <- sex_original
# project$write(dsThreeColumns)
# ## End(Not run)
Run the code above in your browser using DataLab