put back caption for multi-page longtable in latex
diff --git a/R/magic_mirror.R b/R/magic_mirror.R
index e00032c..7b35e74 100644
--- a/R/magic_mirror.R
+++ b/R/magic_mirror.R
@@ -58,6 +58,7 @@
kable_info$ncol <- nchar(kable_info$align)
# Caption
kable_info$caption <- str_match(kable_input, "caption\\{(.*?)\\n")[2]
+ kable_info$caption <- str_sub(kable_info$caption, 1, -4)
# N of rows
kable_info$nrow <- str_count(kable_input, "\\\\\n") -
# in the dev version (currently as of 11.2015) of knitr, when longtable is