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(
       "*", "&dagger;", "&Dagger;", "&sect;", "&para;",
       "**", "&dagger;&dagger;", "&Dagger;&Dagger;", "&sect;&sect;", "&para;&para;",
-      "*", "&dagger;&dagger;&dagger;", "&Dagger;&Dagger;&Dagger;",
+      "***", "&dagger;&dagger;&dagger;", "&Dagger;&Dagger;&Dagger;",
       "&sect;&sect;&sect;", "&para;&para;&para;",
-      "**", "&dagger;&dagger;&dagger;&dagger;", "&Dagger;&Dagger;&Dagger;&Dagger;",
+      "****", "&dagger;&dagger;&dagger;&dagger;", "&Dagger;&Dagger;&Dagger;&Dagger;",
       "&sect;&sect;&sect;&sect;", "&para;&para;&para;&para;"
     ),
     symbol.markdown = c(
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)
+}