mirror of
https://github.com/agdamsbo/REDCapCAST.git
synced 2025-01-18 21:16:34 +01:00
better test
This commit is contained in:
parent
7f04fafd9b
commit
149c2747f4
@ -220,7 +220,7 @@ apply_field_label <- function(data,meta){
|
||||
#' @export
|
||||
#'
|
||||
apply_factor_labels <- function(data,meta=NULL){
|
||||
if (is.list(data)){
|
||||
if (is.list(data) && !is.data.frame(data)){
|
||||
meta <- data$meta
|
||||
data <- data$data
|
||||
} else if (is.null(meta)) {
|
||||
|
@ -4,7 +4,7 @@
|
||||
\alias{apply_factor_labels}
|
||||
\title{Preserve all factor levels from REDCap data dictionary in data export}
|
||||
\usage{
|
||||
apply_factor_labels(data, meta)
|
||||
apply_factor_labels(data, meta = NULL)
|
||||
}
|
||||
\arguments{
|
||||
\item{data}{REDCap exported data set}
|
||||
|
Loading…
x
Reference in New Issue
Block a user