add experimental knit preview

Author: tjmahr

DESCRIPTION

@@ -17,6 +17,6 @@ Imports:
 Suggests: 
     testthat
 LazyData: true
-RoxygenNote: 6.0.1.9000
+RoxygenNote: 6.1.1
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)

NAMESPACE

@@ -1,6 +1,7 @@
 # Generated by roxygen2: do not edit by hand
 
 export("%>%")
+export(knit_selection_addin)
 export(str_rmd_wrap)
 export(wrap_rmd_addin)
 import(stringr)

R/package.R

@@ -10,6 +10,7 @@
 NULL
 
 
+
 #' Wrap text but don't insert lines breaks into inline R code
 #'
 #' Call this addin to wrap paragraphs in an R Markdown document.
@@ -23,6 +24,22 @@ wrap_rmd_addin <- function() {
 }
 
 
+#' Run selection through knitr and commonmark
+#'
+#' Call this addin to preview output of an R markdown selection.
+#'
+#' @export
+knit_selection_addin <- function() {
+  context <- rstudioapi::getActiveDocumentContext()
+  selection <- context$selection
+
+  text <- unlist(selection)["text"]
+  cat(
+    commonmark::markdown_commonmark(
+      knitr::knit(text = text, quiet = TRUE)))
+}
+
+
 #' Wrap text but don't insert lines breaks into inline R code
 #'
 #' @param string a string to wrap

inst/rstudio/addins.dcf

@@ -2,3 +2,8 @@ Name: Wrap Rmd
 Description: Wrap selected R Markdown text but don't insert lines breaks into inline R code
 Binding: wrap_rmd_addin
 Interactive: false
+
+Name: Knit Selection
+Description: Run selection through knitr/commonmark to preview results.
+Binding: knit_selection_addin
+Interactive: false