commented out archaeological findings

This commit is contained in:
AG Damsbo 2023-03-06 14:36:32 +01:00
parent baa2c88998
commit 3f95ba2f22

View File

@ -83,6 +83,7 @@ REDCap_split <- function(records,
metadata, metadata,
primary_table_name = "", primary_table_name = "",
forms = c("repeating", "all")) { forms = c("repeating", "all")) {
# Process user input # Process user input
records <- process_user_input(records) records <- process_user_input(records)
metadata <- metadata <-
@ -110,7 +111,7 @@ REDCap_split <- function(records,
} }
# Standardize variable names for metadata # Standardize variable names for metadata
names(metadata) <- metadata_names # names(metadata) <- metadata_names
# Make sure that no metadata columns are factors # Make sure that no metadata columns are factors
metadata <- metadata <-