# Example sheet
test_sheet <- harmonization_sheet_example[harmonization_sheet_example$study == 'Cohort A',]
# Example dataset
test_data <- cohort_a
# create error log
test_error_log <- test_sheet[,c('item','study','visit','possible_range')]
test_error_log$completed_status <- NA_character_
test_error_log$completed_reason <- NA_character_
test_error_log$range_set_to_na <- NA_integer_
test_error_log$range_out_of_range_warning <- NA
long_dataset <- create_long_dataset(vars_interest = test_sheet,
subdomain = 'age',
previous_dataset = test_data,
error_log = test_error_log,
na_string = 'NA',
verbose = TRUE)
Run the code above in your browser using DataLab