diff --git a/R/revealjs_presentation.R b/R/revealjs_presentation.R
index 8e429c3..4e9a736 100644
--- a/R/revealjs_presentation.R
+++ b/R/revealjs_presentation.R
@@ -91,21 +91,12 @@
                                   md_extensions = NULL,
                                   ...) {
   
-  # function to lookup reveal resource
-  reveal_resources <- function() {
-    system.file("rmarkdown/templates/revealjs_presentation/resources",
-                package = "revealjs")
-  }
-  
   # base pandoc options for all reveal.js output
   args <- c()
   
   # template path and assets
   if (identical(template, "default")) {
-    default_template <- system.file(
-      "rmarkdown/templates/revealjs_presentation/resources/default.html",
-      package = "revealjs"
-    )
+    default_template <- reveal_resources("default.html")
     args <- c(args, "--template", pandoc_path_arg(default_template))
   } else if (!is.null(template)) {
     args <- c(args, "--template", pandoc_path_arg(template))
diff --git a/R/utils.R b/R/utils.R
new file mode 100644
index 0000000..2d7de47
--- /dev/null
+++ b/R/utils.R
@@ -0,0 +1,6 @@
+# function to lookup reveal resource
+reveal_resources <- function(...) {
+  system.file("rmarkdown/templates/revealjs_presentation/resources",
+              ...,
+              package = "revealjs")
+}
\ No newline at end of file