avoid bogus warnings by R CMD check

- create helper function slidify_or_markdownToHTML - leave out unnecessary `require(markdown)`
ramnathv · Dec 2, 2013 · 8d57b56 · 8d57b56
1 parent c5d02ab
commit 8d57b56
Showing 1 changed file with 10 additions and 10 deletions.
diff --git a/R/zzz.R b/R/zzz.R
@@ -1,11 +1,11 @@
+slidify_or_markdownToHTML <- function(inputFile, outputFile){
+  if (readLines(inputFile)[1] == '---'){
+    slidify(inputFile, outputFile, knit_deck = FALSE)
+  } else {
+    markdownToHTML(inputFile, outputFile)
+  }
+}
+
 .onLoad <- function(libname, pkgname){
-  options(rstudio.markdownToHTML =    
-    function(inputFile, outputFile) {      
-      if (readLines(inputFile)[1] == '---'){
-        slidify(inputFile, outputFile, knit_deck = FALSE)
-      } else {
-        require(markdown)
-        markdownToHTML(inputFile, outputFile)   
-      }
-  })
-}
+  options(rstudio.markdownToHTML = slidify_or_markdownToHTML)
+}