幅）チャンク

Question

に、私は次の内容のf2.Rという名前のRスクリプトファイルがあります。

：今

f2 <- function(Delta, delta, sigma){ 
    pnorm(Delta, mean=delta, sd=sigma) - pnorm(-Delta, mean=delta, sd=sigma) 
} 

を、私は次のRmdファイルを持っています

--- 
output: html_document 
--- 

```{r setup, include=FALSE} 
knitr::opts_chunk$set(collapse=TRUE, tidy=TRUE, R.options=list(width=20)) 
``` 

```{r define_f1} 
f1 <- function(Delta, delta, sigma){ 
    pnorm(Delta, mean=delta, sd=sigma) - pnorm(-Delta, mean=delta, sd=sigma) 
} 
``` 

```{r show_f1} 
f1 
``` 

```{r source_f2} 
source("f2.R") 
``` 

```{r show_f2} 
f2 
``` 

そして、これはHTML出力です：

ご覧のとおり、R.options=list(width=20)で定義されている幅オプションは最後のチャンクには影響しません。これを解決するには？

Answer 1

ここにはread_chunkを使用した解決策があります。

Rスクリプトf2.R：

# ---- source_f2 ---- 
f2 <- function(Delta, delta, sigma){ 
    pnorm(Delta, mean=delta, sd=sigma) - pnorm(-Delta, mean=delta, sd=sigma) 
} 

Rmdファイル：

--- 
output: html_document 
--- 

```{r setup, include=FALSE} 
knitr::opts_chunk$set(collapse=TRUE, tidy=TRUE, tidy.opts=list(width.cutoff=20)) 
``` 

```{r define_f1} 
f1 <- function(Delta, delta, sigma){ 
    pnorm(Delta, mean=delta, sd=sigma) - pnorm(-Delta, mean=delta, sd=sigma) 
} 
``` 

```{r show_f1} 
f1 
``` 

```{r read_f2, include=FALSE} 
knitr::read_chunk("f2.R") 
``` 

```{r source_f2, include=FALSE} 
``` 

```{r show_f2} 
f2 
``` 

出力：

あなたは*言う

Answer 2

通常はoptions(width = 20)は機能しますが、機能を印刷するときは機能しません。 cat(deparse(f2, width = 20), sep = "\n")