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]
}