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

name change and export function

Browse Source
This commit is contained in:
Andreas Gammelgaard Damsbo 2024-02-07 10:09:36 +01:00
parent 881c239954
commit 4643e7a806
5 changed files with 13 additions and 15 deletions
Show Stats 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"

12
man/is.repeated_longitudinal.Rd → man/is_repeated_longitudinal.Rd
View File

@ -1,10 +1,10 @@
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/utils.r
\name{is.repeated_longitudinal}
\alias{is.repeated_longitudinal}
\name{is_repeated_longitudinal}
\alias{is_repeated_longitudinal}
\title{Test if repeatable or longitudinal}
\usage{
is.repeated_longitudinal(
is_repeated_longitudinal(
data,
generics = c("redcap_event_name", "redcap_repeat_instrument", "redcap_repeat_instance")
)
@ -22,7 +22,7 @@ logical
Test if repeatable or longitudinal
}
\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(c("record_id", "age", "record_id", "gender"))
is_repeated_longitudinal(redcapcast_data)
is_repeated_longitudinal(list(redcapcast_data))
}

3
man/read_redcap_tables.Rd
View File

@ -32,9 +32,6 @@ read_redcap_tables(
\item{split_forms}{Whether to split "repeating" or "all" forms, default is
all.}
\item{generics}{vector of auto-generated generic variable names to
ignore when discarding empty rows}
}
\value{
list of instruments