File: tests.Rout.save

package info (click to toggle)
r-cran-markdown 1.1%2Bdfsg-1
links: PTS, VCS
area: main
in suites: bullseye
size: 552 kB
sloc: ansic: 4,618; sh: 32; makefile: 7
file content (232 lines) | stat: -rw-r--r-- 7,082 bytes
parent folder | download | duplicates (2)

R version 3.5.1 (2018-07-02) -- "Feather Spray"
Copyright (C) 2018 The R Foundation for Statistical Computing
Platform: x86_64-apple-darwin15.6.0 (64-bit)

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.

  Natural language support but running in an English locale

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.

> library(markdown)
> 
> source(system.file('examples', 'markdownExtensions.R', package = 'markdown'), echo = TRUE)

> options(markdown.HTML.options = "fragment_only")

> cat(markdownToHTML(text = "foo_bar_function", extensions = c()))
<p>foo<em>bar</em>function</p>

> cat(markdownToHTML(text = "foo_bar_function", extensions = c("no_intra_emphasis")))
<p>foo_bar_function</p>

> cat(markdownToHTML(text = "\n    First Header  | Second Header\n    ------------- | -------------\n    Content Cell  | Content Cell\n    Content Cel ..." ... [TRUNCATED] 
<pre><code>First Header  | Second Header
------------- | -------------
Content Cell  | Content Cell
Content Cell  | Content Cell
</code></pre>

> cat(markdownToHTML(text = "\nFirst Header  | Second Header\n------------- | -------------\nContent Cell  | Content Cell\nContent Cell  | Content Cel ..." ... [TRUNCATED] 
<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>

> fenced_block <- function(text, x = "`", n = 3) {
+     fence <- paste(rep(x, n), collapse = "")
+     paste(fence, text, fence, sep = "")
+ }

> cat(markdownToHTML(text = fenced_block("\npreformatted text here without having to indent\nfirst line.\n"), 
+     extensions = c()))
<p><code>
preformatted text here without having to indent
first line.
</code></p>

> cat(markdownToHTML(text = fenced_block("\npreformatted text here without having to indent\nfirst line.\n"), 
+     extensions = c("fenced_code")))
<pre><code>preformatted text here without having to indent
first line.
</code></pre>

> cat(markdownToHTML(text = "https://www.r-project.org/", 
+     extensions = c()))
<p>https://www.r-project.org/</p>

> cat(markdownToHTML(text = "https://www.r-project.org/", 
+     extensions = c("autolink")))
<p><a href="https://www.r-project.org/">https://www.r-project.org/</a></p>

> cat(markdownToHTML(text = "~~awesome~~", extensions = c()))
<p>~~awesome~~</p>

> cat(markdownToHTML(text = "~~awesome~~", extensions = c("strikethrough")))
<p><del>awesome</del></p>

> cat(markdownToHTML(text = "\nEmbedding html without surrounding with empty newline.\n<div>_markdown_</div>\nextra text.\n", 
+     extensions = c("" .... [TRUNCATED] 
<p>Embedding html without surrounding with empty newline.
<div><em>markdown</em></div>
extra text.</p>

> cat(markdownToHTML(text = "\nEmbedding html without surrounding with empty newline.\n<div>_markdown_</div>\nextra text.\n", 
+     extensions = c("l ..." ... [TRUNCATED] 
<p>Embedding html without surrounding with empty newline.</p>

<div>_markdown_</div>

<p>extra text.</p>

> cat(markdownToHTML(text = "#A Header\neven though there is no space between # and A", 
+     extensions = c("")))
<h1>A Header</h1>

<p>even though there is no space between # and A</p>

> cat(markdownToHTML(text = "#Not A Header\nbecause there is no space between # and N", 
+     extensions = c("space_headers")))
<p>#Not A Header
because there is no space between # and N</p>

> cat(markdownToHTML(text = "2^10", extensions = c()))
<p>2^10</p>

> cat(markdownToHTML(text = "2^10", extensions = c("superscript")))
<p>2<sup>10</sup></p>
> source(system.file('examples', 'HTMLOptions.R', package = 'markdown'), echo = TRUE)

> tOpt <- "fragment_only"

> mkd = "<style></style><img src=\"http://cran.rstudio.com/Rlogo.jpg\"><a href=\"#\">Hello</a>"

> cat(markdownToHTML(text = mkd, options = c(tOpt)))
<p><style></style><img src="http://cran.rstudio.com/Rlogo.jpg"><a href="#">Hello</a></p>

> cat(markdownToHTML(text = mkd, options = c(tOpt, "skip_html")))
<p>Hello</p>

> cat(markdownToHTML(text = mkd, options = c(tOpt)))
<p><style></style><img src="http://cran.rstudio.com/Rlogo.jpg"><a href="#">Hello</a></p>

> cat(markdownToHTML(text = mkd, options = c(tOpt, "skip_style")))
<p><img src="http://cran.rstudio.com/Rlogo.jpg"><a href="#">Hello</a></p>

> cat(markdownToHTML(text = mkd, options = c(tOpt)))
<p><style></style><img src="http://cran.rstudio.com/Rlogo.jpg"><a href="#">Hello</a></p>

> cat(markdownToHTML(text = mkd, options = c(tOpt, "skip_images")))
<p><style></style><a href="#">Hello</a></p>

> cat(markdownToHTML(text = mkd, options = c(tOpt)))
<p><style></style><img src="http://cran.rstudio.com/Rlogo.jpg"><a href="#">Hello</a></p>

> cat(markdownToHTML(text = mkd, options = c(tOpt, "skip_links")))
<p><style></style><img src="http://cran.rstudio.com/Rlogo.jpg">Hello</p>

> cat(markdownToHTML(text = "[foo](http://google.com \"baz\")", 
+     options = c(tOpt)))
<p><a href="http://google.com" title="baz">foo</a></p>

> cat(markdownToHTML(text = "[foo](http://google.com \"baz\")", 
+     options = c(tOpt, "safelink")))
<p><a href="http://google.com" title="baz">foo</a></p>

> mkd <- paste(c("# Header 1", "p1", "## Header 2", 
+     "p2"), collapse = "\n")

> cat(markdownToHTML(text = mkd, options = c(tOpt)))
<h1>Header 1</h1>

<p>p1</p>

<h2>Header 2</h2>

<p>p2</p>

> cat(markdownToHTML(text = mkd, options = c(tOpt, "toc")))
<div id="toc">
<div id="toc_header">Table of Contents</div>
<ul>
<li>
<a href="#toc_0">Header 1</a>
<ul>
<li>
<a href="#toc_1">Header 2</a>
</li>
</ul>
</li>
</ul>
</div>


<h1 id="toc_0">Header 1</h1>

<p>p1</p>

<h2 id="toc_1">Header 2</h2>

<p>p2</p>

> cat(markdownToHTML(text = "foo\nbar\n", options = c(tOpt)))
<p>foo
bar</p>

> cat(markdownToHTML(text = "foo\nbar\n", options = c(tOpt, 
+     "hard_wrap")))
<p>foo<br>
bar</p>

> cat(markdownToHTML(text = "foo\nbar\n", options = c(tOpt, 
+     "hard_wrap")))
<p>foo<br>
bar</p>

> cat(markdownToHTML(text = "foo\nbar\n", options = c(tOpt, 
+     "hard_wrap", "use_xhtml")))
<p>foo<br/>
bar</p>

> mkd = "<style></style><img src=\"http://cran.rstudio.com/Rlogo.jpg\"><a href=\"#\">Hello</a>"

> cat(markdownToHTML(text = mkd, options = c(tOpt, "skip_html")))
<p>Hello</p>

> cat(markdownToHTML(text = mkd, options = c(tOpt, "skip_html", 
+     "escape")))
<p>&lt;style&gt;&lt;/style&gt;&lt;img src=&quot;http://cran.rstudio.com/Rlogo.jpg&quot;&gt;&lt;a href=&quot;#&quot;&gt;Hello&lt;/a&gt;</p>

> cat(markdownToHTML(text = "1/2 (c)", options = c(tOpt)))
<p>1/2 (c)</p>

> cat(markdownToHTML(text = "1/2 (c)", options = c(tOpt, 
+     "smartypants")))
<p>&frac12; &copy;</p>

> cat(smartypants(text = "1/2 (c)\n"))
&frac12; &copy;
> 
> rm(mkd)
> rm(tOpt)
>