notedown

hrbrmstr · Jan 10, 2017 · 5adb134 · 5adb134
1 parent 853111e
commit 5adb134
Show file tree

Hide file tree

Showing 10 changed files with 60 additions and 27 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -20,5 +20,6 @@ Depends:
 Imports:
     knitr,
     rmarkdown,
-    htmltools
+    htmltools,
+    tools
 RoxygenNote: 5.0.1
diff --git a/NAMESPACE b/NAMESPACE
@@ -6,6 +6,8 @@ export(hugo)
 export(kube)
 export(minimal)
 export(skeleton)
+export(to_jupyter)
 import(htmltools)
 import(knitr)
 import(rmarkdown)
+importFrom(tools,file_path_sans_ext)
diff --git a/R/ipynb.r b/R/ipynb.r
@@ -0,0 +1,21 @@
+#' "knit" replacement to generate an ipynb with notedown
+#'
+#' @export
+to_jupyter <- function(inputFile, encoding) {
+
+  output_file <-  sprintf("%s.%s", tools::file_path_sans_ext(inputFile), "ipynb")
+
+  tf <- tempfile(fileext=".Rmd")
+
+  tmp <- readLines(inputFile)
+  yaml_end <- which(grepl("^---", tmp))[2]
+  writeLines(tmp[(yaml_end+1):length(tmp)], tf)
+
+  system2("notedown", args=c(tf, "--rmagic", "--run"), stdout=output_file)
+
+  unlink(tf)
+
+  output_file
+
+}
+
diff --git a/R/markdowntemplates-package.R b/R/markdowntemplates-package.R
@@ -35,6 +35,7 @@
 #'
 #' @name markdowntemplates
 #' @docType package
-#' @author Bob Rudis (@@hrbrmstr)
+#' @author Bob Rudis ([email protected])
 #' @import rmarkdown knitr htmltools
+#' @importFrom tools file_path_sans_ext
 NULL
diff --git a/man/bulma.Rd b/man/bulma.Rd
diff --git a/man/kube.Rd b/man/kube.Rd
diff --git a/man/markdowntemplates.Rd b/man/markdowntemplates.Rd
diff --git a/man/minimal.Rd b/man/minimal.Rd
diff --git a/man/skeleton.Rd b/man/skeleton.Rd
diff --git a/man/to_jupyter.Rd b/man/to_jupyter.Rd