diff --git a/R/evaluate_test_code.R b/R/evaluate_test_code.R
index eae0884..08e21e3 100644
--- a/R/evaluate_test_code.R
+++ b/R/evaluate_test_code.R
@@ -56,8 +56,11 @@ 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","", gsub("\a|\033","", 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")