commit e0a36a8c4c80456acb77f69f9669ebe4781345fb
author Hao Zhu <haozhu@hsl.harvard.edu> Mon Nov 23 15:35:20 2015 -0500
committer Hao Zhu <haozhu@hsl.harvard.edu> Mon Nov 23 15:35:20 2015 -0500
tree 4d6997fab31ce176fcb247ea3a21dd8cd9e3c114
parent 2203f666a1a26cfbc268b6324eb67661733c132c

Read rmarkdown format from metadata: rmd_format

R/footnote.R

diff --git a/R/footnote.R b/R/footnote.R
index d849779..7b0c4ec 100644
--- a/R/footnote.R
+++ b/R/footnote.R
@@ -38,9 +38,9 @@
     symbol.html = c(
       "*", "†", "‡", "§", "¶",
       "**", "††", "‡‡", "§§", "¶¶",
-      "*", "†††", "‡‡‡",
+      "***", "†††", "‡‡‡",
       "§§§", "¶¶¶",
-      "**", "††††", "‡‡‡‡",
+      "****", "††††", "‡‡‡‡",
       "§§§§", "¶¶¶¶"
     ),
     symbol.markdown = c(

R/util.R

diff --git a/R/util.R b/R/util.R
new file mode 100644
index 0000000..9c29ddb
--- /dev/null
+++ b/R/util.R
@@ -0,0 +1,20 @@
+#' Rmarkdown Format
+#'
+#' @description If the export format of the Rmarkdown document exist,
+#'
+#' @importFrom rmarkdown metadata
+#'
+#' @export
+
+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(rmd_fmt)
+}