minor changes
diff --git a/R/magic_mirror.R b/R/magic_mirror.R
index 93f6860..6270191 100644
--- a/R/magic_mirror.R
+++ b/R/magic_mirror.R
@@ -25,8 +25,7 @@
return(kable_info)
}
-#' Magic mirror for latex tables --------------
-#' @param kable_input The output of kable
+# Magic mirror for latex tables --------------
magic_mirror_latex <- function(kable_input){
kable_info <- list(tabular = NULL, booktabs = FALSE, align = NULL,
valign = NULL, ncol = NULL, nrow = NULL, colnames = NULL,
@@ -88,9 +87,7 @@
return(kable_info)
}
-#' Magic Mirror for html table --------
-#'
-#' @param kable_input The output of kable
+# Magic Mirror for html table --------
magic_mirror_html <- function(kable_input){
kable_info <- list()
kable_xml <- read_kable_as_xml(kable_input)
diff --git a/R/util.R b/R/util.R
index 87f72c8..3b52794 100644
--- a/R/util.R
+++ b/R/util.R
@@ -8,14 +8,6 @@
rmd_format <- function(){
rmd_output_metadata <- metadata$output
- # rmd_fmt <- ifelse(
- # is.null(rmd_output_metadata),
- # "markdown", ifelse(
- # rmd_output_metadata %in% c("html_document", "rmarkdown::html_vignette"),
- # "html",ifelse(
- # rmd_output_metadata %in% c("pdf_document", "rmarkdown::tufte_handout"),
- # "latex", "markdown"
- # )))
return(names(rmd_output_metadata))
}