diff --git a/R/easy_redcap.R b/R/easy_redcap.R index f77a169..5899fd4 100644 --- a/R/easy_redcap.R +++ b/R/easy_redcap.R @@ -21,19 +21,19 @@ get_api_key <- function(key.name) { #' @param project.name The name of the current project (for key storage with #' `keyring::key_set()`) #' @param widen.data argument to widen the exported data +#' @param uri REDCap database API uri #' @param ... arguments passed on to `REDCapCAST::read_redcap_tables()` #' #' @return data.frame or list depending on widen.data #' @importFrom purrr reduce #' @importFrom dplyr left_join #' @export -easy_redcap <- function(project.name, widen.data = TRUE, ...) { - project.name <- "ENIGMA" - +easy_redcap <- function(project.name, widen.data = TRUE, uri, ...) { key <- get_api_key(key.name = paste0(project.name, "_REDCAP_API")) out <- read_redcap_tables( token = key, + uri = uri, ... ) diff --git a/man/easy_redcap.Rd b/man/easy_redcap.Rd index feb169b..6002b1a 100644 --- a/man/easy_redcap.Rd +++ b/man/easy_redcap.Rd @@ -4,7 +4,7 @@ \alias{easy_redcap} \title{Secure API key storage and data acquisition in one} \usage{ -easy_redcap(project.name, widen.data = TRUE, ...) +easy_redcap(project.name, widen.data = TRUE, uri, ...) } \arguments{ \item{project.name}{The name of the current project (for key storage with @@ -12,6 +12,8 @@ easy_redcap(project.name, widen.data = TRUE, ...) \item{widen.data}{argument to widen the exported data} +\item{uri}{REDCap database API uri} + \item{...}{arguments passed on to `REDCapCAST::read_redcap_tables()`} } \value{