R Under development (unstable) (2024-10-15 r87238 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2024 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> local({
+   if (!file.exists(f <- '../inst/examples/render-options.R'))
+     f = litedown:::pkg_file('examples', 'render-options.R')
+   source(f, local = TRUE, echo = TRUE)
+ })

> library(litedown)

> mkd <- c("# Header 1", "p1", "## Header 2", "p2")

> mark(mkd, options = "+number_sections")
<h1 id="chp:header-1"><span class="section-number main-number">1</span> Header 1</h1>
<p>p1</p>
<h2 id="sec:header-2"><span class="section-number">1.1</span> Header 2</h2>
<p>p2</p>

> mark(mkd, options = "+number_sections+toc")
<div id="TOC">
<ul class="numbered">
<li><a href="#chp:header-1"><span class="section-number main-number">1</span> Header 1</a>
<ul>
<li><a href="#sec:header-2"><span class="section-number">1.1</span> Header 2</a></li>
</ul>
</li>
</ul>
</div>
<h1 id="chp:header-1"><span class="section-number main-number">1</span> Header 1</h1>
<p>p1</p>
<h2 id="sec:header-2"><span class="section-number">1.1</span> Header 2</h2>
<p>p2</p>

> mark("foo\nbar\n")
<p>foo
bar</p>

> mark("foo\nbar\n", options = "+hardbreaks")
<p>foo<br />
bar</p>

> mkd <- c("`$x$` is inline math $x$!", "", "Display style:", 
+     "", "$$x + y$$", "", "\\begin{align}\na^{2}+b^{2} & = c^{2}\\\\\n\\sin^{2}(x)+\\c ..." ... [TRUNCATED] 

> mark(mkd)
<p><code>$x$</code> is inline math \(x\)!</p>
<p>Display style:</p>
<p>$$x + y$$</p>
<p>\begin{align}
a^{2}+b^{2} &amp; = c^{2}\\
\sin^{2}(x)+\cos^{2}(x) &amp; = 1
\end{align}</p>

> mark(mkd, options = "-latex_math")
<p><code>$x$</code> is inline math $x$!</p>
<p>Display style:</p>
<p>$$x + y$$</p>
<p>\begin{align}
a^{2}+b^{2} &amp; = c^{2}\
\sin^{2}(x)+\cos^{2}(x) &amp; = 1
\end{align}</p>

> mark("\nFirst Header  | Second Header\n------------- | -------------\nContent Cell  | Content Cell\nContent Cell  | Content Cell\n")
<table>
<thead>
<tr>
<th>First Header</th>
<th>Second Header</th>
</tr>
</thead>
<tbody>
<tr>
<td>Content Cell</td>
<td>Content Cell</td>
</tr>
<tr>
<td>Content Cell</td>
<td>Content Cell</td>
</tr>
</tbody>
</table>

> mark("\n| a | b |\n|---|--:|\n| A | 9 |\n\nTable: A table _caption_.\n")
<table>
<caption>A table <em>caption</em>.</caption>
<thead>
<tr>
<th>a</th>
<th align="right">b</th>
</tr>
</thead>
<tbody>
<tr>
<td>A</td>
<td align="right">9</td>
</tr>
</tbody>
</table>

> mark("\nFirst Header  | Second Header\n------------- | -------------\nContent Cell  | Content Cell\nContent Cell  | Content Cell\n", 
+     options  .... [TRUNCATED] 
<p>First Header  | Second Header
———–– | ———––
Content Cell  | Content Cell
Content Cell  | Content Cell</p>

> mark("https://www.r-project.org/")
<p><a href="https://www.r-project.org/">https://www.r-project.org/</a></p>

> mark("https://www.r-project.org/", options = "-autolink")
<p>https://www.r-project.org/</p>

> mark("~~awesome~~")
<p><del>awesome</del></p>

> mark("~~awesome~~", options = "-strikethrough")
<p>~~awesome~~</p>

> mark("2^10^")
<p>2<sup>10</sup></p>

> mark("2^10^", options = "-superscript")
<p>2^10^</p>

> mark("H~2~O")
<p>H<sub>2</sub>O</p>

> mark("H~2~O", options = "-subscript")
<p>H~2~O</p>

> mark("```r\n1 + 1;\n```")
<pre><code class="language-r">1 + 1;
</code></pre>

> mark("```{.r}\n1 + 1;\n```")
<pre><code class="language-r">1 + 1;
</code></pre>

> mark("```{.r .js}\n1 + 1;\n```")
<pre><code class="language-r js">1 + 1;
</code></pre>

> mark("```{.r .js #foo}\n1 + 1;\n```")
<pre><code class="language-r js" id="foo">1 + 1;
</code></pre>

> mark("```{.r .js #foo style=\"background:lime;\"}\n1 + 1;\n```")
<pre><code class="language-r js" id="foo" style="background:lime;">1 + 1;
</code></pre>

> mark("````\nA _code chunk_:\n\n```{r, echo=TRUE}\n1 + 1;\n```\n````")
<pre><code>A _code chunk_:

```{r, echo=TRUE}
1 + 1;
```
</code></pre>

> mark("```{=html}\n<p>raw HTML</p>\n```")
<p>raw HTML</p>

> mark("```{=latex}\n<p>raw HTML</p>\n```")


> mkd = "<style>a {}</style><script type=\"text/javascript\">console.log(\"No!\");</script>\n[Hello](#)"

> mark(mkd)
<style>a {}</style><script type="text/javascript">console.log("No!");</script>
<p><a href="#">Hello</a></p>
> 
> proc.time()
   user  system elapsed 
   0.37    0.15    0.51