andreas/REDCapCAST
1
0
Fork 0
mirror of https://github.com/agdamsbo/REDCapCAST.git synced 2024-11-22 13:30:23 +01:00
Code Issues Packages Projects Releases Wiki Activity

Fixing variable names in R package example.

Browse Source
This commit is contained in:
Egeler, Paul W 2018-06-03 16:46:25 -04:00
parent 50e0496d8c
commit 2cf5c8e019
2 changed files with 22 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
R/R/REDCap_split.r
View File

@ -14,23 +14,23 @@
#' \dontrun{ #' \dontrun{
#' library(RCurl) #' library(RCurl)
#' #'
#' # Get the metadata
#' result.meta <- postForm(
#' api_url,
#' token = api_token,
#' content = 'metadata',
#' format = 'json'
#' )
#'
#' # Get the records #' # Get the records
#' result.record <- postForm( #' records <- postForm(
#' uri = api_url, #' uri = api_url, # Supply your site-specific URI
#' token = api_token, #' token = api_token, # Supply your own API token
#' content = 'record', #' content = 'record',
#' format = 'json', #' format = 'json',
#' returnFormat = 'json' #' returnFormat = 'json'
#' ) #' )
#' #'
#' # Get the metadata
#' metadata <- postForm(
#' uri = api_url,
#' token = api_token,
#' content = 'metadata',
#' format = 'json'
#' )
#'
#' # Convert exported JSON strings into a list of data.frames #' # Convert exported JSON strings into a list of data.frames
#' REDCap_split(records, metadata) #' REDCap_split(records, metadata)
#' } #' }

22
R/man/REDCap_split.Rd
View File

@ -27,23 +27,23 @@ is used to determine which fields should be included in each resultant table.
\dontrun{ \dontrun{
library(RCurl) library(RCurl)
# Get the metadata
result.meta <- postForm(
api_url,
token = api_token,
content = 'metadata',
format = 'json'
)
# Get the records # Get the records
result.record <- postForm( records <- postForm(
uri = api_url, uri = api_url, # Supply your site-specific URI
token = api_token, token = api_token, # Supply your own API token
content = 'record', content = 'record',
format = 'json', format = 'json',
returnFormat = 'json' returnFormat = 'json'
) )
# Get the metadata
metadata <- postForm(
uri = api_url,
token = api_token,
content = 'metadata',
format = 'json'
)
# Convert exported JSON strings into a list of data.frames # Convert exported JSON strings into a list of data.frames
REDCap_split(records, metadata) REDCap_split(records, metadata)
} }