andreas/REDCapCAST
1
0
Fork 0
mirror of https://github.com/agdamsbo/REDCapCAST.git synced 2026-06-19 13:17:30 +02:00
Code Issues Projects Releases Packages Wiki Activity

linting

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2024-02-27 13:20:21 +01:00
commit 9e33057c06
32 changed files with 456 additions and 340 deletions
Download patch file Download diff file Expand all files Collapse all files

5
R/easy_redcap.R
View file

@ -1,4 +1,3 @@
#' Retrieve project API key if stored, if not, set and retrieve
#'
#' @param key.name character vector of key name
@ -26,7 +25,7 @@ get_api_key <- function(key.name) {
#'
#' @return data.frame or list depending on widen.data
#' @export
easy_redcap <- function(project.name, widen.data=TRUE, uri, ...) {
easy_redcap <- function(project.name, widen.data = TRUE, uri, ...) {
key <- get_api_key(key.name = paste0(project.name, "_REDCAP_API"))
out <- read_redcap_tables(
@ -35,7 +34,7 @@ easy_redcap <- function(project.name, widen.data=TRUE, uri, ...) {
...
)
if (widen.data){
if (widen.data) {
out <- out |> redcap_wider()
}