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

fix to allow actual project naming

Browse Source
This commit is contained in:
Andreas Gammelgaard Damsbo 2024-02-05 14:46:20 +01:00
parent 28dc2ba09e
commit 385973e8da
2 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
R/easy_redcap.R
View File

@ -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,
...
)

4
man/easy_redcap.Rd
View File

@ -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{