From 9182599a2a446dc88debb4f1747eb30678c0e19a Mon Sep 17 00:00:00 2001 From: saudiwin Date: Wed, 5 Dec 2018 16:04:43 -0500 Subject: [PATCH] added error checking to covariate creation --- R/Helpers.R | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/R/Helpers.R b/R/Helpers.R index ff5dd13..be36097 100644 --- a/R/Helpers.R +++ b/R/Helpers.R @@ -639,7 +639,13 @@ to_array <- lapply(split(to_spread,pull(to_spread,!!third_dim_var)), function(this_data) { # spread and stuff into a list - spread_it <- spread(this_data,key=!!col_var_name,value=!!col_var_value) %>% + spread_it <- try(spread(this_data,key=!!col_var_name,value=!!col_var_value)) + if('try-error' %in% class(spread_it)) { + print('Failed to find unique covariate values for dataset:') + print(this_data) + stop() + } + spread_it <- spread_it %>% select(-!!row_var,-!!third_dim_var) %>% as.matrix row.names(spread_it) <- unique(pull(this_data,!!row_var)) return(spread_it)