getwd/setwd fix, examples revision upcoming

This commit is contained in:
Andreas Gammelgaard Damsbo 2023-06-05 08:35:34 +02:00
parent 32bab4ea0b
commit 9d9a6dce2c

View File

@ -58,17 +58,19 @@
#' #'
#' # You must set the working directory first since the REDCap data export #' # You must set the working directory first since the REDCap data export
#' # script contains relative file references. #' # script contains relative file references.
#' old <- getwd()
#' setwd("/path/to/data/") #' setwd("/path/to/data/")
#' #'
#' # Run the data export script supplied by REDCap. #' # Run the data export script supplied by REDCap.
#' # This will create a data.frame of your records called 'data' #' # This will create a data.frame of your records called 'data'
#' source("ExampleProject_R_2018-06-03_1700.r") #' source("ExampleProject_R_2018-06-03_1700.r")
#' #'
#' # Get the metadata #' # Get the metadatan
#' metadata <- read.csv("ExampleProject_DataDictionary_2018-06-03.csv") #' metadata <- read.csv("ExampleProject_DataDictionary_2018-06-03.csv")
#' #'
#' # Split the tables #' # Split the tables
#' REDCapRITS::REDCap_split(data, metadata) #' REDCapRITS::REDCap_split(data, metadata)
#' setwd(old)
#' } #' }
#' @return A list of \code{"data.frame"}s. The number of tables will differ #' @return A list of \code{"data.frame"}s. The number of tables will differ
#' depending on the \code{forms} option selected. #' depending on the \code{forms} option selected.