Rノート：opts_chunkは効果がありません

Question

私は、1つの問題を除き、かなりうまく動作する私の最初のRノートブックに取り組んでいます。 私は、セパレータと最大2進ポイントとしてコンマ持って

`r realbignumber` 

で番号I出力インラインになりたい：123,456,789.12

これを達成するためには、私が最初にチャンクを追加しました...

```{r setup} 
knitr::opts_chunk$set(echo = FALSE, warning=FALSE, cache = TRUE, message = FALSE) 
knitr::opts_chunk$set(inline = function(x){if(!is.numeric(x)){x}else{prettyNum(round(x,1), big.mark = ",")}}) 
options(scipen=999) 
``` 

科学的数字の抑制はチャームのように機能するので、チャンクは確実に実行されます。ただし、数値のインライン出力の書式設定は機能しません。

それはなぜでしょうか？ これらの設定は、一般にRノートブックでは機能しませんか？

編集：

ソリューションはhereも数値の出力形式には影響しません示唆しました。

Answer 1

ここでは、R Markdownドキュメントに大きな数字を印刷する2つの方法を示す例です。まず、prettyNum()関数をインラインRチャンクで使用するコード。

Sample document where we test printing a large number. First set the number in an R chunk. 
```{r initializeData} 
theNum <- 1234567891011.03 
options(scipen=999,digits=16) 
``` 

The R code we'll use to format the number is: `prettyNum(theNum,width=23,big.mark=",")`. 

Next, print the large number. `r prettyNum(theNum,width=23,big.mark=",")`. 

チャンクオプションを使用する代わりに、次のように機能します。コードの両方のチャンクがRMDファイルとニットに埋め込まれ

Now, try an alternative using knitr chunks. 

```{r prettyNumHook } 
knitr::knit_hooks$set(inline = function(x) { if(!is.numeric(x)){ x }else{ prettyNum(x, big.mark=",",width=23) } }) 
``` 
Next, print the large number by simply referencing the number in an inline chunk as `theNum`: `r theNum`. 

次のように、出力は、両方の技術は、同じ結果をもたらすことを示しています。

に関して、

レン