move tests for Markdown options from the R script to an Rmd example, which is rendered on the package site

Author: yihui

Makefile

@@ -1,7 +1,5 @@
-tests: tests/tests.Rout.save
-
-tests/tests.Rout.save: tests/tests.R inst/examples/render-options.R
+all:
 	ln -f ../lite.js/js/snap.js ../lite.js/css/snap.css ../lite.js/css/default.css inst/resources/
 	Rscript -e "Rd2roxygen::rab('.', install=TRUE)"
 	rm litedown_*.tar.gz
-	cd tests && R CMD BATCH --no-save --no-restore --no-timing tests.R tests.Rout.save
+	cd examples && Rscript _run.R

NEWS.md

@@ -6,6 +6,8 @@
 
 - Fixed a bug that inline code expressions (`` `{lang} expr` ``) cannot be correctly located when the line has leading spaces that are not meaningful.
 
+- Deleted vignettes `markdown-examples` and `markdown-output`. They are rendered on the package site now: https://git.yihui.org/litedown/examples/test-options.html
+
 # CHANGES IN litedown VERSION 0.6
 
 - Added a Markdown rendering option `offline` to download web resources when this option is set to true, so that the HTML output can be viewed offline (thanks, @TimTaylor, #73). See https://yihui.org/litedown/#sec:offline for more info.

R/mark.R

@@ -416,7 +416,7 @@ mark = function(input, output = NULL, text = NULL, options = NULL, meta = list()
     # for RStudio to capture the output path when previewing the output
     if (is_rmd_preview()) message('\nOutput created: ', output)
     if (is_pdf) invisible(output) else write_utf8(ret, output)
-  } else raw_string(ret, lang = format)
+  } else raw_string(ret, lang = paste0('.', format))
 }
 
 # insert body and meta variables into a template
@@ -470,8 +470,6 @@ yaml_text = function(part, text) if (length(l <- part$lines) == 2) text[l[1]:l[2
 #' @examples
 #' # all available options
 #' litedown::markdown_options()
-#'
-#' @example inst/examples/render-options.R
 markdown_options = function() {
   # options enabled by default
   x1 = c(

inst/examples/render-options.R examples/test-options.Rmdinst/examples/render-options.R renamed to examples/test-options.Rmd

@@ -1,70 +1,72 @@
+## Test Markdown options
+
+```{r, test-a}
 library(litedown)
 
 # toc example
-mkd <- c("# Header 1", "p1", "## Header 2", "p2")
+mkd <- c('# Header 1', 'p1', '## Header 2', 'p2')
 
-mark(mkd, options = "+number_sections")
-mark(mkd, options = "+number_sections+toc")
+mark(mkd, options = '+number_sections')
+mark(mkd, options = '+number_sections+toc')
 
 # hard_wrap example
-mark("foo\nbar\n")
-mark("foo\nbar\n", options = "+hardbreaks")
+mark('foo\nbar\n')
+mark('foo\nbar\n', options = '+hardbreaks')
 
 # latex math example
 mkd <- c(
-  "`$x$` is inline math $x$!", "", "Display style:", "", "$$x + y$$", "",
-  "\\begin{align}
+  '`$x$` is inline math $x$!', '', 'Display style:', '', '$$x + y$$', '',
+  '\\begin{align}
 a^{2}+b^{2} & = c^{2}\\\\
 \\sin^{2}(x)+\\cos^{2}(x) & = 1
-\\end{align}"
+\\end{align}'
 )
 
 mark(mkd)
-mark(mkd, options = "-latex_math")
+mark(mkd, options = '-latex_math')
 
 # table example
-mark("
+mark('
 First Header  | Second Header
 ------------- | -------------
 Content Cell  | Content Cell
 Content Cell  | Content Cell
-")
+')
 
 # caption
-mark("
+mark('
 | a | b |
 |---|--:|
 | A | 9 |
 
 Table: A table _caption_.
-")
+')
 
 # no table
-mark("
+mark('
 First Header  | Second Header
 ------------- | -------------
 Content Cell  | Content Cell
 Content Cell  | Content Cell
-", options = '-table')
+', options = '-table')
 
 # autolink example
-mark("https://www.r-project.org/")
-mark("https://www.r-project.org/", options = "-autolink")
+mark('https://www.r-project.org/')
+mark('https://www.r-project.org/', options = '-autolink')
 
 # links and spans
 mark('[a b](#){.red}')
 mark('[a\nb](){.red}')
 
 # strikethrough example
-mark("~~awesome~~")
-mark("~~awesome~~", options = "-strikethrough")
+mark('~~awesome~~')
+mark('~~awesome~~', options = '-strikethrough')
 
 # superscript and subscript examples
-mark("2^10.5^")
-mark("2^10.5^", options = "-superscript")
-mark("H~2~O")
-mark("H~2~O", options = "-subscript")
-mark("X~i,j~")
+mark('2^10^')
+mark('2^10^', options = '-superscript')
+mark('H~2~O')
+mark('H~2~O', options = '-subscript')
 
 # code blocks
 mark('```r\n1 + 1;\n```')
@@ -82,8 +84,22 @@ mark('```{=latex}\n\\textbf{raw LaTeX}\n```')
 mark('::: foo\nasdf\n:::')
 mark('::: {.foo .bar #baz style="color: red;"}\nasdf\n:::')
 
+# smartypants example
+mark('1/2 (c)')
+mark('1/2 (c)', options = '+smartypants')
+
+mkd <- paste(names(litedown:::pants), collapse = ' ')
+mark(mkd, options = '+smartypants')
+
 # filter out HTML tags
 mkd = '<style>a {}</style><script type="text/javascript">console.log("No!");</script>\n[Hello](#)'
 mark(mkd)
 # tagfiler doesn't work: https://github.com/r-lib/commonmark/issues/15
-# mark(mkd, options = "tagfilter")
+# mark(mkd, options = 'tagfilter')
+```
+
+## The HTML output of above examples
+
+```{r, test-b, results = 'asis'}
+`<test-a>`
+```