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

name change and export function

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2024-02-07 10:09:36 +01:00
commit 4643e7a806
5 changed files with 13 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

2
R/REDCap_split.r
View file

@ -96,7 +96,7 @@ REDCap_split <- function(records,
vars_in_data <- names(records)
# Process repeat instrument names to match the redcap naming
if (is.repeated_longitudinal(records)){
if (is_repeated_longitudinal(records)){
records$redcap_repeat_instrument <- clean_redcap_name(records$redcap_repeat_instrument)
# Match arg for forms

2
R/redcap_wider.R
View file

@ -52,7 +52,7 @@ redcap_wider <-
event.glue = "{.value}_{redcap_event_name}",
inst.glue = "{.value}_{redcap_repeat_instance}") {
if (!is.repeated_longitudinal(data)) {
if (!is_repeated_longitudinal(data)) {
if (is.list(data)) {
if (length(data) == 1) {
out <- data[[1]]

9
R/utils.r
View file

@ -469,11 +469,12 @@ d2w <- function(x, lang = "en", neutrum = FALSE, everything = FALSE) {
#' and "redcap_repeat_instance"
#'
#' @return logical
#' @export
#' @examples
#' is.repeated_longitudinal(c("record_id", "age", "record_id", "gender"))
#' is.repeated_longitudinal(redcapcast_data)
#' is.repeated_longitudinal(list(redcapcast_data))
is.repeated_longitudinal <- function(data, generics = c(
#' is_repeated_longitudinal(c("record_id", "age", "record_id", "gender"))
#' is_repeated_longitudinal(redcapcast_data)
#' is_repeated_longitudinal(list(redcapcast_data))
is_repeated_longitudinal <- function(data, generics = c(
"redcap_event_name",
"redcap_repeat_instrument",
"redcap_repeat_instance"