when running Rd2ex(), dontrun code will be commented out, so no need …

…to treat those chunks differently
yihui · Oct 25, 2012 · 4d6a292 · 4d6a292
1 parent 9e2ccc6
commit 4d6a292
Showing 1 changed file with 0 additions and 2 deletions.
diff --git a/R/utils-rd2html.R b/R/utils-rd2html.R
@@ -41,8 +41,6 @@ knit_rd = function(pkg, links = tools::findHTMLlinks(), frame = TRUE) {
       ex = readLines(ef, warn = FALSE)
       ex = ex[-(1L:grep('### ** Examples', ex, fixed = TRUE))]
       ex = c('```{r}', ex, '```')
-      ex = gsub('^(## Not run:\\s*)', '```{r eval=FALSE}\n\\1', ex)
-      ex = gsub('^(## End\\(Not run\\)\\s*)', '\\1\n```{r}', ex)
       opts_chunk$set(fig.path = str_c('figure/', p, '-'), tidy = FALSE)
       ex = knit2html(text = ex, envir = parent.frame(2), fragment.only = TRUE)
       txt = c(txt[1:i0], ex, txt[i1:length(txt)])