39

我正在编写一个 RMarkdown文档,我想在其中重新运行一些块(5 到 9)。没有必要再次显示这些块,所以我考虑使用

```{r echo=FALSE}

使重新运行的块不可见,如另一个stackoverflow 问题中所述。这很好,并输出所需的结果(改进了第二次迭代的拟合 - 请参阅此处实施的此解决方案)。

然而,在理想的世界中,代码将是可扩展的,因此如果用户出于教育目的和清晰的目的(例如,请参阅此处的 Greasemonkey 解决方案链接),则可以准确地看到正在发生的事情,而不是像我的第二个 rpubs 示例中那样隐藏。解决方案可能看起来像这样,但周围的盒子较短,以避免分心:

for (i in 1:nrow(all.msim)){ # Loop creating aggregate values (to be repeated later)
  USd.agg[i,]   <- colSums(USd.cat * weights0[,i])
}

for (j in 1:nrow(all.msim)){
weights1[which(USd$age <= 30),j] <- all.msim[j,1] /USd.agg[j,1] 
weights1[which(USd$age >= 31 & USd$age <= 50),j] <- all.msim[j,2] /USd.agg[j,2] 
weights1[which(USd$age >= 51),j] <- all.msim[j,3] /USd.agg[j,3] ## 
}
# Aggregate the results for each zone
for (i in 1:nrow(all.msim)){
  USd.agg1[i,]   <- colSums(USd.cat * weights0[,i] * weights1[,i])
}
# Test results 
for (j in 1:nrow(all.msim)){
weights2[which(USd$sex == "m"),j] <- all.msim[j,4] /USd.agg1[j,4]  
weights2[which(USd$sex == "f"),j] <- all.msim[j,5] /USd.agg1[j,5] 
}

for (i in 1:nrow(all.msim)){
USd.agg2[i,]   <- colSums(USd.cat * weights0[,i] * weights1[,i] * weights2[,i])
}

for (j in 1:nrow(all.msim)){
weights3[which(USd$mode == "bicycle"),j] <- all.msim[j,6] /USd.agg2[j,6]  
weights3[which(USd$mode == "bus"),j] <- all.msim[j,7] /USd.agg2[j,7] 
weights3[which(USd$mode == "car.d"),j] <- all.msim[j,8] /USd.agg2[j,8]  
weights3[which(USd$mode == "car.p"),j] <- all.msim[j,9] /USd.agg2[j,9]
weights3[which(USd$mode == "walk"),j] <- all.msim[j,10] /USd.agg2[j,10]
}
weights4 <- weights0 * weights1 * weights2 * weights3
for (i in 1:nrow(all.msim)){
USd.agg3[i,]   <- colSums(USd.cat * weights4[,i])
}
# Test results 
plot(as.vector(as.matrix(all.msim)), as.vector(as.matrix(USd.agg3)),
     xlab = "Constraints", ylab = "Model output")
abline(a=0, b=1)
cor(as.vector(as.matrix(all.msim)), as.vector(as.matrix(USd.agg3)))
#rowSums(USd.agg3[,1:3]) # The total population modelled for each zone, constraint 1
#rowSums(USd.agg3[,4:5])
#rowSums(USd.agg3[,6:10])

我对echo=F解决方案很满意,但对可扩展的代码片段更满意。

编辑:除了第一个示例之外的所有 RPubs 示例现在都已删除,以避免使用基本相同的文档阻塞其出色的发布系统。

4

2 回答 2

72

使用三年前不存在的rmarkdown软件包,这变得更加容易。基本上你只需打开“代码折叠”:https ://bookdown.org/yihui/rmarkdown/html-document.html#code-folding 。您不再需要编写任何 JavaScript。

例如

---
title: "Habits"
output:
  html_document:
    code_folding: hide
---

另请参阅https://bookdown.org/yihui/rmarkdown-cookbook/fold-show.html以更好地控制要折叠或展开的代码块。

于 2016-04-04T16:30:52.427 回答
10

如果你在你的代码之前添加一个 html 标签,你可以使用 CSS 选择器对输出的一些部分做一些聪明的事情——markdown 可以轻松地传递 HTML:

<style>
div.hidecode + pre {display: none}
</style>

<div class="hidecode"></div>
```{r}
summary(cars)
```

在这里,我的 CSS 样式规则匹配<pre>a 之后的第一个标记<div class=hidecode>并将其设置为不可见。Markdown 用两个标签写入 R 块<pre>- 一个用于 R,一个用于输出,此 CSS 捕获第一个。

现在您知道如何在 CSS 中匹配代码和输出块,您可以在 Javascript 中用它们做各种聪明的事情。您可以在<div class=hidecode>标签中添加一些内容并添加一个切换可见性的点击事件:

<style>
div.hidecode + pre {display: none}
</style>
<script>
doclick=function(e){
e.nextSibling.nextSibling.style.display="block";
}
</script>

<div class="hidecode" onclick="doclick(this);">[Show Code]</div>
```{r}
summary(cars)
```

复杂性的下一步是使动作切换,但是您不妨使用jQuery并获得真正的时髦。或者使用这个简单的方法。让我们用一个按钮来做,但你还需要一个 div 来让你的钩子进入 R 命令 PRE 块,并且遍历变得有点复杂:

<style>
div.hideme + pre {display: none}
</style>
<script>
doclick=function(e){
code = e.parentNode.nextSibling.nextSibling.nextSibling.nextSibling
if(code.style.display=="block"){
 code.style.display='none';
 e.textContent="Show Code"
}else{
 code.style.display="block";
 e.textContent="Hide Code"
}
}
</script>

<button class="hidecode" onclick="doclick(this);">Show Code</button>
<div class="hideme"></div>
```{r}
summary(cars)
```

(注意:我认为您可以将 R 块包装在<div>标签中:

<div class="dosomething">
```{r}
summary(cars) 
``` 
</div>

但这失败了——有人知道为什么吗?)

于 2013-01-02T20:40:47.023 回答