mirror of
https://github.com/agdamsbo/REDCapCAST.git
synced 2024-11-22 05:20:23 +01:00
reflects changes to sanitize_split()
This commit is contained in:
parent
289f57ab76
commit
3e356004d4
@ -92,15 +92,13 @@ read_redcap_tables <- function(uri,
|
|||||||
|
|
||||||
|
|
||||||
# Splitting
|
# Splitting
|
||||||
l <- REDCap_split(d,
|
out <- REDCap_split(d,
|
||||||
m,
|
m,
|
||||||
forms = split_forms,
|
forms = split_forms,
|
||||||
primary_table_name = ""
|
primary_table_name = ""
|
||||||
)
|
)
|
||||||
|
|
||||||
# Sanitizing split list by removing completely empty rows apart from colnames
|
sanitize_split(out)
|
||||||
# in "generics"
|
|
||||||
sanitize_split(l, c(names(d)[1], generics))
|
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|
||||||
|
@ -12,8 +12,7 @@ read_redcap_tables(
|
|||||||
events = NULL,
|
events = NULL,
|
||||||
forms = NULL,
|
forms = NULL,
|
||||||
raw_or_label = "label",
|
raw_or_label = "label",
|
||||||
split_forms = "all",
|
split_forms = "all"
|
||||||
generics = c("redcap_event_name", "redcap_repeat_instrument", "redcap_repeat_instance")
|
|
||||||
)
|
)
|
||||||
}
|
}
|
||||||
\arguments{
|
\arguments{
|
||||||
|
Loading…
Reference in New Issue
Block a user