Running 'empty.R' [0s]
  Running 'smartypants.R' [172s]
  Running 'tests.R' [152s]
Running the tests in 'tests/smartypants.R' failed.
Complete output:
  > mkd <- paste(names(markdown:::pants), collapse = ' ')
  > stopifnot(markdown::smartypants(mkd) == '&frac12; &frac13; &frac23; &frac14; &frac34; &frac15; &frac25; &frac35; &frac45; &frac16; &frac56; &frac18; &frac38; &frac58; &frac78; &#8528; &#8529; &#8530; &copy; &reg; &trade;')
  > 
  > proc.time()
     user  system elapsed 
     0.20    0.01    0.20 
Running the tests in 'tests/tests.R' failed.
Complete output:
  > local({
  +   if (!file.exists(f <- '../inst/examples/render-options.R'))
  +     f = markdown:::pkg_file('examples', 'render-options.R')
  +   source(f, local = TRUE, echo = TRUE)
  + })
  
  > library(markdown)
  
  > mkd <- c("# Header 1", "p1", "## Header 2", "p2")
  
  > cat(mark(mkd, options = "+number_sections"))
  <h1 id="header-1"><span class="section-number">1.</span> Header 1</h1>
  <p>p1</p>
  <h2 id="header-2"><span class="section-number">1.1</span> Header 2</h2>
  <p>p2</p>
  
  > cat(mark(mkd, options = "+number_sections+toc"))
  <div id="TOC">
  <ul class="numbered">
  <li><a href="#header-1"><span class="section-number">1.</span> Header 1</a>
  <ul>
  <li><a href="#header-2"><span class="section-number">1.1</span> Header 2</a></li>
  </ul>
  </li>
  </ul>
  </div>
  <h1 id="header-1"><span class="section-number">1.</span> Header 1</h1>
  <p>p1</p>
  <h2 id="header-2"><span class="section-number">1.1</span> Header 2</h2>
  <p>p2</p>
  
  > cat(mark("foo\nbar\n"))
  <p>foo
  bar</p>
  
  > cat(mark("foo\nbar\n", options = "hard_wrap"))
  <p>foo<br />
  bar</p>
  
  > mkd <- c("`$x$` is inline math $x$!", "", "Display style:", 
  +     "", "$$x + y$$", "", "\\begin{eqnarray}\na^{2}+b^{2} & = & c^{2}\\\\\n\\sin^{2}(x ..." ... [TRUNCATED] 
  
  > cat(mark(mkd))
  <p><code>$x$</code> is inline math \(x\)!</p>
  <p>Display style:</p>
  <p>$$x + y$$</p>
  <p>\begin{eqnarray} a^{2}+b^{2} &amp; = &amp; c^{2}\\ \sin^{2}(x)+\cos^{2}(x) &amp; = &amp; 1 \end{eqnarray}</p>
  
  > cat(mark(mkd, options = "-latex_math"))
  <p><code>$x$</code> is inline math $x$!</p>
  <p>Display style:</p>
  <p>$$x + y$$</p>
  <p>\begin{eqnarray}
  a^{2}+b^{2} &amp; = &amp; c^{2}\
  \sin^{2}(x)+\cos^{2}(x) &amp; = &amp; 1
  \end{eqnarray}</p>
  
  > cat(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>
  
  > cat(mark("\nFirst Header  | Second Header\n------------- | -------------\nContent Cell  | Content Cell\nContent Cell  | Content Cell\n", 
  +     opti .... [TRUNCATED] 
  <p>First Header  | Second Header
  ———–– | ———––
  Content Cell  | Content Cell
  Content Cell  | Content Cell</p>
  
  > cat(mark("https://www.r-project.org/"))
  <p><a href="https://www.r-project.org/">https://www.r-project.org/</a></p>
  
  > cat(mark("https://www.r-project.org/", options = "-autolink"))
  <p>https://www.r-project.org/</p>
  
  > cat(mark("~~awesome~~"))
  <p><del>awesome</del></p>
  
  > cat(mark("~~awesome~~", options = "-strikethrough"))
  <p>~~awesome~~</p>
  
  > cat(mark("2^10^"))
  <p>2<sup>10</sup></p>
  
  > cat(mark("2^10^", options = "-superscript"))
  <p>2^10^</p>
  
  > cat(mark("H~2~O"))
  <p>H<sub>2</sub>O</p>
  
  > cat(mark("H~2~O", options = "-subscript"))
  <p>H~2~O</p>
  
  > cat(mark("```r\n1 + 1;\n```"))
  <pre><code class="language-r">1 + 1;
  </code></pre>
  
  > cat(mark("```{.r}\n1 + 1;\n```"))
  <pre><code class="language-r">1 + 1;
  </code></pre>
  
  > cat(mark("```{.r .js}\n1 + 1;\n```"))
  <pre><code class="language-r js">1 + 1;
  </code></pre>
  
  > cat(mark("```{.r .js #foo}\n1 + 1;\n```"))
  <pre><code class="language-r js" id="foo">1 + 1;
  </code></pre>
  
  > cat(mark("```{.r .js #foo style=\"color:red;\"}\n1 + 1;\n```"))
  <pre><code class="language-r js" id="foo" style="color:red;">1 + 1;
  </code></pre>
  
  > cat(mark("````\n```{r, echo=TRUE}\n1 + 1;\n```\n````"))
  <pre><code>```{r, echo=TRUE}
  1 + 1;
  ```
  </code></pre>
  
  > cat(mark("```{=html}\n<p>raw HTML</p>\n```"))
  <p>raw HTML</p>
  
  > cat(mark("```{=latex}\n<p>raw HTML</p>\n```"))
  
  > mkd = "<style>a {}</style><script type=\"text/javascript\">console.log(\"No!\");</script>\n[Hello](#)"
  
  > cat(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.29    0.09    0.37