From 321b0677b769b247dc9a3d72be19173bbc5edee1 Mon Sep 17 00:00:00 2001
From: Thomas OBADIA <thomas.obadia@pasteur.fr>
Date: Mon, 2 Jun 2025 11:06:15 +0200
Subject: [PATCH] Add explicit cast option for checkboxes as part of the
redcapAPI::exportRecordsTyped() modifications
---
01_INVENTORY/INVENTORY_01_dump_REDCap_database.R | 1 +
02_OBSERVATIONAL/OBSERVATIONAL_01_dump_REDCap_database.R | 1 +
.../INTERVENTIONAL_M0_01_dump_REDCap_database.R | 2 ++
3 files changed, 4 insertions(+)
diff --git a/01_INVENTORY/INVENTORY_01_dump_REDCap_database.R b/01_INVENTORY/INVENTORY_01_dump_REDCap_database.R
index ead0a70..6b74c6e 100644
--- a/01_INVENTORY/INVENTORY_01_dump_REDCap_database.R
+++ b/01_INVENTORY/INVENTORY_01_dump_REDCap_database.R
@@ -79,6 +79,7 @@ if (!DATA_EXTRACT_IS_RECENT_INV) {
"radio" = castLabelCharacter,
"yesno" = castLabelCharacter,
"dropdown" = castLabelCharacter,
+ "checkbox" = castCheckedCharacter,
"system" = castLabelCharacter
)) %>%
diff --git a/02_OBSERVATIONAL/OBSERVATIONAL_01_dump_REDCap_database.R b/02_OBSERVATIONAL/OBSERVATIONAL_01_dump_REDCap_database.R
index 102e823..e1d5811 100644
--- a/02_OBSERVATIONAL/OBSERVATIONAL_01_dump_REDCap_database.R
+++ b/02_OBSERVATIONAL/OBSERVATIONAL_01_dump_REDCap_database.R
@@ -79,6 +79,7 @@ if (!DATA_EXTRACT_IS_RECENT_OBS) {
"radio" = castLabelCharacter,
"yesno" = castLabelCharacter,
"dropdown" = castLabelCharacter,
+ "checkbox" = castCheckedCharacter,
"system" = castLabelCharacter
)) %>%
diff --git a/03_INTERVENTIONAL_M0/INTERVENTIONAL_M0_01_dump_REDCap_database.R b/03_INTERVENTIONAL_M0/INTERVENTIONAL_M0_01_dump_REDCap_database.R
index 6e9f665..cc5426c 100644
--- a/03_INTERVENTIONAL_M0/INTERVENTIONAL_M0_01_dump_REDCap_database.R
+++ b/03_INTERVENTIONAL_M0/INTERVENTIONAL_M0_01_dump_REDCap_database.R
@@ -107,6 +107,7 @@ if (!DATA_EXTRACT_IS_RECENT_INT_M0) {
"radio" = castLabelCharacter,
"yesno" = castLabelCharacter,
"dropdown" = castLabelCharacter,
+ "checkbox" = castCheckedCharacter,
"system" = castLabelCharacter
)) %>%
@@ -150,6 +151,7 @@ if (!DATA_EXTRACT_IS_RECENT_INT_M0) {
"radio" = castLabelCharacter,
"yesno" = castLabelCharacter,
"dropdown" = castLabelCharacter,
+ "checkbox" = castCheckedCharacter,
"system" = castLabelCharacter
)) %>%
--
GitLab