Rmarkdown生成数百个文件，而不是一个文件

在讨论了适合我分析的图表之后，我继续尝试打印一份关于所有结果的漂亮报告

我写了我的代码，它似乎生成了数百个小html文件，而不是一个大文件

有什么想法吗

{r printing, echo=F, cache=FALSE, results='asis'}

library("nycflights13")
library(tidyverse)
library(haven)
library(foreign)
library(mfx)
library(jtools)
library(skimr)
library(kableExtra)
library(dotwhisker)


kbl <- function (df) {
  kable(df) %>% 
    kable_styling(bootstrap_options = c("striped", "condensed")) %>%  print
  
}


flights <- nycflights13::flights
flights<- sample_n(flights, 1000)
nested_inter <- flights %>% group_by(origin, dest) %>% 
  nest() ## groups all the data by the sub series
nested_inter <- nested_inter  %>% 
  mutate (model =  map(flights, 
                       ~glm(formula = arr_delay ~ dep_time + origin+ air_time+ distance)))


print_model <- function (df, name) {
  
  
  ##Begin printing
  cat('\n')
  for(i in seq(nrow(df))) {
    cat("\n\n##This model consists of  \n")
    kbl(print(paste 
              ("Origin is:", df$origin[[i]], 
                "Dest is: ", df$dest[[i]])
              
    ))
    cat('\n\n\n')
    
    glance(df$model[[i]]) %>% kbl
    t1<- df$model[[i]] %>% broom::tidy() 
    kbl(t1)
    p = dwplot(df$model[[i]])
    p + 
      geom_vline(xintercept=0, linetype="dashed")+
      geom_segment(aes(x=conf.low,y=term,xend=conf.high,
                       yend=term,col=p.value<1e-6))+
      geom_point(aes(x=estimate,y=term,col=p.value<1e-6))
    
    cat('  \n End of model *************  \n')
    cat('\\pagebreak')
    
  } 
  
}

print_model(nested_inter, "Sample")

{r打印，echo=F，cache=FALSE，results='asis'}
图书馆（“nycflights13”）
图书馆（tidyverse）
图书馆（避风港）
图书馆（外文）
图书馆（mfx）
图书馆（jtools）
图书馆（略读）
图书馆（kableExtra）
图书馆（点须）
kbl%
kable_样式（引导选项=c（“条纹”、“浓缩”））%>%打印
}
飞行