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

remove duplicated line

Browse Source
This commit is contained in:
Andreas Gammelgaard Damsbo 2024-01-09 11:06:31 +01:00
parent 5eaa46a0f6
commit 94383242dd
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
R/read_redcap_tables.R
View File

@ -40,7 +40,9 @@ read_redcap_tables <- function(uri,
)) { )) {
m <- REDCapR::redcap_metadata_read(redcap_uri = uri, token = token)[["data"]] # Getting metadata
m <-
REDCapR::redcap_metadata_read (redcap_uri = uri, token = token)[["data"]]
if (!is.null(fields)){ if (!is.null(fields)){
@ -93,11 +95,7 @@ read_redcap_tables <- function(uri,
d$redcap_repeat_instrument <- clean_redcap_name(d$redcap_repeat_instrument) d$redcap_repeat_instrument <- clean_redcap_name(d$redcap_repeat_instrument)
} }
# Getting metadata # Processing metadata to reflect focused dataset
m <-
REDCapR::redcap_metadata_read (redcap_uri = uri, token = token)[["data"]]
# Processing metadata to reflect dataset
if (!is.null(c(fields,forms,events))){ if (!is.null(c(fields,forms,events))){
m <- focused_metadata(m,names(d)) m <- focused_metadata(m,names(d))
} }