Another attempt to fix https://github.com/Sage-Bionetworks/data_curat…

…or/issues/331
nf-osi · May 21, 2022 · 8eeff54 · 8eeff54
1 parent c45157f
commit 8eeff54
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/functions/validationResult.R b/functions/validationResult.R
@@ -65,7 +65,7 @@ validationResult <- function(anno.res, template, manifest) {
 
       # create table to display errors for users
       error_table <- lapply(errors, function(i) {
-        data.frame(Row = as.numeric(i[[1]]), Column = i[[2]], Value = as.character(i[[4]][[1]]), Error = i[[3]])
+        data.frame(Row = as.numeric(i[[1]]), Column = as.character(i[[2]]), Value = as.character(i[[4]][[1]]), Error = i[[3]])
       }) %>% bind_rows()
 
       # create list for hightlight function; key: error_column, value: error_value