andreas/REDCapCAST
1
0
Fork 0
mirror of https://github.com/agdamsbo/REDCapCAST.git synced 2025-01-19 05:21:56 +01:00
Code Issues Packages Projects Releases Wiki Activity

better test

Browse Source
This commit is contained in:
Andreas Gammelgaard Damsbo 2024-12-04 08:05:45 +01:00
parent 7f04fafd9b
commit 149c2747f4
No known key found for this signature in database
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
R/read_redcap_tables.R
View File

@ -220,7 +220,7 @@ apply_field_label <- function(data,meta){
#' @export #' @export
#' #'
apply_factor_labels <- function(data,meta=NULL){ apply_factor_labels <- function(data,meta=NULL){
if (is.list(data)){ if (is.list(data) && !is.data.frame(data)){
meta <- data$meta meta <- data$meta
data <- data$data data <- data$data
} else if (is.null(meta)) { } else if (is.null(meta)) {

2
man/apply_factor_labels.Rd
View File

@ -4,7 +4,7 @@
\alias{apply_factor_labels} \alias{apply_factor_labels}
\title{Preserve all factor levels from REDCap data dictionary in data export} \title{Preserve all factor levels from REDCap data dictionary in data export}
\usage{ \usage{
apply_factor_labels(data, meta) apply_factor_labels(data, meta = NULL)
} }
\arguments{ \arguments{
\item{data}{REDCap exported data set} \item{data}{REDCap exported data set}