From 8eeff54142c36e894d2d5c364fa808cbff3e45ab Mon Sep 17 00:00:00 2001 From: Robert Allaway Date: Sat, 21 May 2022 10:13:12 -0700 Subject: [PATCH] Another attempt to fix https://github.com/Sage-Bionetworks/data_curator/issues/331 --- functions/validationResult.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/functions/validationResult.R b/functions/validationResult.R index b1570f80..2fc07a35 100644 --- 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