Made changes to add_header_left.
Change the name of attr original_kable_meta to kable_meta
diff --git a/R/magic_mirror.R b/R/magic_mirror.R
index d200a9d..9a05fc5 100644
--- a/R/magic_mirror.R
+++ b/R/magic_mirror.R
@@ -12,8 +12,8 @@
warning("magic_mirror may not be able to produce correct result if the",
" input table is not rendered by knitr::kable. ")
}
- if ("original_kable_meta" %in% names(attributes(kable_input))) {
- return(attr(kable_input, "original_kable_meta"))
+ if ("kable_meta" %in% names(attributes(kable_input))) {
+ return(attr(kable_input, "kable_meta"))
}
kable_format <- attr(kable_input, "format")
if (kable_format == "latex") {