commit 8743c7769b7c7122fcd8cd21b4c402df2f914380
author qifei <qifei9@gmail.com> Wed Aug 30 21:20:34 2017 +0200
committer qifei <qifei9@gmail.com> Wed Aug 30 21:20:34 2017 +0200
tree 049241c95daffb97a93a8778b8a5abcd280699ed
parent 2a64dc624652e3b9daff8a8fe6cea96a1be75191

Fix issue in getting caption of table with caption.short

R/magic_mirror.R

diff --git a/R/magic_mirror.R b/R/magic_mirror.R
index 81f4249..66b3fde 100644
--- a/R/magic_mirror.R
+++ b/R/magic_mirror.R
@@ -63,7 +63,7 @@
     kable_info$caption.short <- str_match(caption_line, "\\[(.*?)\\]")[2]
     kable_info$caption <- substr(caption_line,
                                  nchar(kable_info$caption.short) + 4,
-                                 nchar(caption_line) - 1)
+                                 nchar(caption_line))
   } else {
     kable_info$caption <- str_match(kable_input, "caption\\{(.*?)\\n")[2]
   }