experimenting auto_set_format
diff --git a/R/auto_set_format.R b/R/auto_set_format.R
new file mode 100644
index 0000000..fbf657e
--- /dev/null
+++ b/R/auto_set_format.R
@@ -0,0 +1,7 @@
+auto_set_format <- function() {
+ if (knitr::is_latex_output()) {
+ options(knitr.table.format = "latex")
+ } else {
+ options(knitr.table.format = "html")
+ }
+}
diff --git a/R/zzz.R b/R/zzz.R
index 02f4487..982d9de 100644
--- a/R/zzz.R
+++ b/R/zzz.R
@@ -16,4 +16,6 @@
usepackage_latex("ulem", "normalem")
usepackage_latex("makecell")
}
+ auto_format <- getOption("kableExtra.auto_format", default = TRUE)
+ if (auto_format) auto_set_format()
}