39

いくつかのチャンク (5 から 9) を再実行したいRMarkdownドキュメントを書いています。これらのチャンクを再度表示する必要はないので、使用を検討しました

```{r echo=FALSE}

別のstackoverflow questionで説明されているように、再実行チャンクを非表示にします。これは問題なく、目的の結果が出力されます (2 回目の反復の適合が改善されました - このソリューションの実装はこちらを参照してください)。

ただし、理想的な世界では、コードは拡張可能であり、ユーザーが教育目的と明確さのために必要に応じて何が起こっているかを正確に確認できるようにする必要があります (たとえば、Greasemonkey ソリューションへのリンクを参照)。解決策は次のようになりますが、気が散らないように周囲のボックスが短くなります。

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

これは、3 年前には存在しなかった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 チャンクを 2 つの<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実際にファンキーなものを使用することもできます。または、この簡単な方法を使用してください。ボタンでやってみましょう。しかし、フックを R コマンドの PRE ブロックに入れるには div も必要で、トラバーサルは少し複雑になります:

<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)
```

<div>( 注: R チャンクをタグでラップできると思いました:

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

しかし、それは失敗します - 誰でも理由を知っていますか?)

于 2013-01-02T20:40:47.023 に答える