From 41ac212713988116e0fa5353da87d6815de2f22c Mon Sep 17 00:00:00 2001 From: Jan Meis Date: Wed, 8 Dec 2021 16:03:24 +0100 Subject: [PATCH 1/3] Fixed a bug that made it impossible to render tables whenever test cases fail. Before, pdflatex would fail with error message "Extra alignment tab has been changed to \cr. `expected`: TRUE & Fail &". --- R/evaluate_test_code.R | 3 +++ 1 file changed, 3 insertions(+) diff --git a/R/evaluate_test_code.R b/R/evaluate_test_code.R index eae0884..f63ef4f 100644 --- a/R/evaluate_test_code.R +++ b/R/evaluate_test_code.R @@ -56,6 +56,9 @@ vt_kable_test_code_results <- function(results, format = vt_render_to()) { x <- results[, c("Test", "Results", "Pass_Fail")] colnames(x) <- c("Test", "Results", "Pass/Fail") + if (nrow(x) > 0) { + x$Results <- gsub("\n","",x$Results) + } t <- kable(x,format = format) From d7fe8338a3034f3df32ce081568c5fbec214275d Mon Sep 17 00:00:00 2001 From: Jan Meis Date: Fri, 14 Oct 2022 14:42:50 +0200 Subject: [PATCH 2/3] hopefully get longtable to work --- R/evaluate_test_code.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/evaluate_test_code.R b/R/evaluate_test_code.R index f63ef4f..f932c61 100644 --- a/R/evaluate_test_code.R +++ b/R/evaluate_test_code.R @@ -60,7 +60,7 @@ vt_kable_test_code_results <- function(results, format = vt_render_to()) { x$Results <- gsub("\n","",x$Results) } - t <- kable(x,format = format) + t <- kable(x, format = format, longtable = TRUE) if(nrow(results) > 0){ t <- column_spec(t, 2:3, width = "10em") From 9c2cd39631c76db88cdb15ad05b17eb99684f8db Mon Sep 17 00:00:00 2001 From: Jan Meis Date: Wed, 7 Dec 2022 14:51:12 +0100 Subject: [PATCH 3/3] Escape unicode --- R/evaluate_test_code.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/evaluate_test_code.R b/R/evaluate_test_code.R index f932c61..08e21e3 100644 --- a/R/evaluate_test_code.R +++ b/R/evaluate_test_code.R @@ -57,7 +57,7 @@ vt_kable_test_code_results <- function(results, format = vt_render_to()) { x <- results[, c("Test", "Results", "Pass_Fail")] colnames(x) <- c("Test", "Results", "Pass/Fail") if (nrow(x) > 0) { - x$Results <- gsub("\n","",x$Results) + x$Results <- gsub("\n","", gsub("\a|\033","", x$Results)) } t <- kable(x, format = format, longtable = TRUE)