From 275851f26e2f7b669f625b42718667ae00dec68e Mon Sep 17 00:00:00 2001
From: pegeler <paulegeler@gmail.com>
Date: Fri, 8 Jun 2018 23:47:34 -0400
Subject: [PATCH] r-pkg: updating rd file with examples

---
 R/man/REDCap_split.Rd | 49 ++++++++++++++++++++++++++++++++++---------
 1 file changed, 39 insertions(+), 10 deletions(-)

diff --git a/R/man/REDCap_split.Rd b/R/man/REDCap_split.Rd
index a84d994..7a1b827 100644
--- a/R/man/REDCap_split.Rd
+++ b/R/man/REDCap_split.Rd
@@ -25,27 +25,56 @@ is used to determine which fields should be included in each resultant table.
 }
 \examples{
 \dontrun{
+# Using an API call -------------------------------------------------------
+
 library(RCurl)
 
 # Get the records
 records <- postForm(
-    uri = api_url,     # Supply your site-specific URI
-    token = api_token, # Supply your own API token
-    content = 'record',
-    format = 'json',
-    returnFormat = 'json'
+  uri = api_url,     # Supply your site-specific URI
+  token = api_token, # Supply your own API token
+  content = 'record',
+  format = 'json',
+  returnFormat = 'json'
 )
 
 # Get the metadata
 metadata <- postForm(
-    uri = api_url,
-    token = api_token,
-    content = 'metadata',
-    format = 'json'
+  uri = api_url,     # Supply your site-specific URI
+  token = api_token, # Supply your own API token
+  content = 'metadata',
+  format = 'json'
 )
 
 # Convert exported JSON strings into a list of data.frames
-REDCap_split(records, metadata)
+REDCapRITS::REDCap_split(records, metadata)
+
+# Using a raw data export -------------------------------------------------
+
+# Get the records
+records <- read.csv("/path/to/data/ExampleProject_DATA_2018-06-03_1700.csv")
+
+# Get the metadata
+metadata <- read.csv("/path/to/data/ExampleProject_DataDictionary_2018-06-03.csv")
+
+# Split the tables
+REDCapRITS::REDCap_split(records, metadata)
+
+# In conjunction with the R export script ---------------------------------
+
+# You must set the working directory first since the REDCap data export script
+# contains relative file references.
+setwd("/path/to/data/")
+
+# Run the data export script supplied by REDCap.
+# This will create a data.frame of your records called 'data'
+source("ExampleProject_R_2018-06-03_1700.r")
+
+# Get the metadata
+metadata <- read.csv("ExampleProject_DataDictionary_2018-06-03.csv")
+
+# Split the tables
+REDCapRITS::REDCap_split(data, metadata)
 }
 }
 \author{