knitr出力中の関数からhtmlを出力

Question

これは、私が一緒に実行したい、多くの別々の解析の小さなサンプルです。関数内で生成された見出しで各解析にフラグを立てます。最初の見出しは期待通りに出力されますが、関数によって生成された見出しは出力されません。関数で生成された見出しをhtml形式で取得するにはどうすればよいですか？

 
R version 3.3.2 (2016-10-31) 
Platform: x86_64-apple-darwin13.4.0 (64-bit) 
Running under: OS X El Capitan 10.11.6 

RStudio 1.0.136 

knitr 1.15.1 

```{r initialize, echo=F, comment=NA} 

htmPrint = function(htm) { 
    structure(htm, class='knit_asis') 
    } 

doAnalysis = function(dat, depVar, indVar) { 

    print(htmPrint(paste0('<h3>AusMCP1 on ', indVar, '</h3>'))) 
    eval(parse(text=paste0('print(summary(lm(', depVar, '~', indVar, ', data=dat)))'))) 
    print(htmPrint('<hr>')) 
    } 

demoData = data.frame(dep1=rnorm(100), dep2=rnorm(100), ind1=runif(100), ind2=runif(100), ind3=runif(100)) 

varDep = names(demoData)[1:2] 
varInd = names(demoData)[3:5] 
``` 

This is a small sample of many separate analyses I want to run together, flagging each analysis with a heading generated in the function. 

I could use *results=asis* in the chunk command, but it produces 
unwanted formatting and extraneous output in the analysis output. 

```{r doAnalyses} 
htmPrint('<h2>Begin analyses</h2>') 

for (k in 1:length(varDep)) for (i in 1:length(varInd)) doAnalysis(demoData, varDep[k], varInd[i]) 
``` 

Answer 1

私はあなたがresults = 'asis'を使用し、ちょうどあなたが欲しいの出力を得るために機能変更する必要がありますと思います。私はprevious questionで参照されるいくつかの方法を使用して、panderというパッケージを使用します。

catとhtmlタグで同じ機能を利用できるため、htmPrint関数を使用する必要はありません。次に、printの代わりにprint_lmを使用して、要約を削除します。表形式の出力がうまくいきます。

```{r initialize, echo=F, comment=NA} 

library(pander) 

#Use the pander print method to print the model tables. 
#You could use other package print methods as well. 

print_lm <- function (x, ...) UseMethod("pander") 

doAnalysis = function(dat, depVar, indVar) { 

    cat('<h3>AusMCP1 on ', indVar, '</h3>') 
    eval(parse(text=paste0('print_lm(summary(lm(', depVar, '~', indVar, ', data=dat)))'))) 
    cat('<hr>') 
    } 

demoData = data.frame(dep1=rnorm(100), dep2=rnorm(100), ind1=runif(100), ind2=runif(100), ind3=runif(100)) 

varDep = names(demoData)[1:2] 
varInd = names(demoData)[3:5] 
``` 

I use *results=asis* and changed the output of your doAnalysis function to create formatted output. 

```{r doAnalyses, echo = FALSE, results='asis'} 
cat('<h2>Begin analyses</h2>') 

for (k in 1:length(varDep)) for (i in 1:length(varInd)) doAnalysis(demoData, varDep[k], varInd[i]) 
``` 

また、あらかじめモデリングのすべてを行うと、あなたのkable()や表形式の印刷方法を使用して、それらをプリントアウトし、その後、お好みに合わせてお使いのモデルの要約のすべてを整理するbroomパッケージを使用することができます選択。