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

addition to correctly format factors for upload

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2024-12-04 07:35:54 +01:00
commit 7f04fafd9b
No known key found for this signature in database
2 changed files with 59 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

12
R/read_redcap_tables.R
View file

@ -219,12 +219,20 @@ apply_field_label <- function(data,meta){
#' @return data.frame
#' @export
#'
apply_factor_labels <- function(data,meta){
apply_factor_labels <- function(data,meta=NULL){
if (is.list(data)){
meta <- data$meta
data <- data$data
} else if (is.null(meta)) {
stop("Please provide a data frame for meta")
}
purrr::imap(data, \(.x, .i){
if (any(c("radio", "dropdown") %in% meta$field_type[meta$field_name == .i])) {
if (any(c("radio", "dropdown") %in% meta$field_type[meta$field_name == .i]) || is.factor(.x)) {
format_redcap_factor(.x, meta$select_choices_or_calculations[meta$field_name == .i])
} else {
.x
}
}) |> dplyr::bind_cols()
}