From 3f95ba2f22d2b4198627bdbe3331ff42719a5ad4 Mon Sep 17 00:00:00 2001
From: AG Damsbo <agdamsbo@pm.me>
Date: Mon, 6 Mar 2023 14:36:32 +0100
Subject: [PATCH] commented out archaeological findings

---
 R/REDCap_split.r | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/R/REDCap_split.r b/R/REDCap_split.r
index 7662445..a8cf71b 100644
--- a/R/REDCap_split.r
+++ b/R/REDCap_split.r
@@ -83,6 +83,7 @@ REDCap_split <- function(records,
                          metadata,
                          primary_table_name = "",
                          forms = c("repeating", "all")) {
+
   # Process user input
   records  <- process_user_input(records)
   metadata <-
@@ -110,7 +111,7 @@ REDCap_split <- function(records,
   }
 
   # Standardize variable names for metadata
-  names(metadata) <- metadata_names
+  # names(metadata) <- metadata_names
 
   # Make sure that no metadata columns are factors
   metadata <-