close #87: results = 'hide' implies collapse = TRUE

Author: yihui

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: litedown
 Type: Package
 Title: A Lightweight Version of R Markdown
-Version: 0.7
+Version: 0.7.1
 Authors@R: c(
     person("Yihui", "Xie", role = c("aut", "cre"), email = "[email protected]", comment = c(ORCID = "0000-0003-0645-5666", URL = "https://yihui.org")),
     person("Tim", "Taylor", role = "ctb", comment = c(ORCID = "0000-0002-8587-7113")),

NEWS.md

@@ -1,3 +1,7 @@
+# CHANGES IN litedown VERSION 0.8
+
+- The chunk option `results = 'hide'` will imply `collapse = TRUE`, i.e., when text output is hidden, the source blocks will be merged (thanks, @jangorecki, #87). 
+
 # CHANGES IN litedown VERSION 0.7
 
 - `pkg_manual()` will exclude help pages with the keyword `internal` (thanks, @TimTaylor, #78).

R/fuse.R

@@ -820,9 +820,12 @@ fuse_code = function(x, blocks) {
       } else fenced_block(x, a, fence)
     }
   })
+  out = dropNULL(out)
 
   # collapse a code block without attributes into previous adjacent code block
-  if (isTRUE(opts$collapse) && (n <- length(res)) > 1) {
+  # (also try to collapse for results = 'hide')
+  collapse = isTRUE(opts$collapse) || res_show == 'hide'
+  if (collapse && (n <- length(out)) > 1) {
     i1 = 1; k = NULL  # indices of elements to be removed from `out`
     for (i in 2:n) {
       if (i - i1 > 1) i1 = i - 1  # make sure blocks are adjacent

examples/test-results-hide.Rmd

@@ -0,0 +1,15 @@
+`results = 'hide'` should try to collapse output, e.g., merge the source blocks below:
+
+```{r, results = 'hide'}
+nrow(iris)
+ncol(iris)
+iris
+```
+
+Other types of output (such as messages) will interrupt the collapsed block:
+
+```{r, results = 'hide'}
+nrow(iris)
+message(ncol(iris))
+iris
+```

examples/test-results-hide.md

@@ -0,0 +1,22 @@
+`results = 'hide'` should try to collapse output, e.g., merge the source blocks below:
+
+``` {.r}
+nrow(iris)
+ncol(iris)
+iris
+```
+
+Other types of output (such as messages) will interrupt the collapsed block:
+
+``` {.r}
+nrow(iris)
+message(ncol(iris))
+```
+
+``` {.plain .message}
+#> 5
+```
+
+``` {.r}
+iris
+```