Merge pull request #57 from qifei9/master

Fix issue in getting caption of table with caption.short
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]
   }