R markdown 打印背景数据存在问题

Question

下面是出现问题的代码。

我似乎无法找到一种方法让它不在表格之前打印源数据，房子。这是代码块选项问题，例如代码中没有 include = False 吗？要生成，您将创建一个新的 R markdown 文档，然后将下面的代码放在前两个代码块中（通常是灰色背景色）。

  ```{r setup, include=FALSE}
  knitr::opts_chunk$set(echo = TRUE)
  pkgs <- c("tidyverse","tidyquant","RODBC", "RODBCDBI",
      "spdplyr","rgdal","readxl","Rcpp",
      "RcppRoll", "ggforce","scales", "DBI","ggthemes", 
 "cowplot","gt","data.table","gridExtra","ggrepel","htmltab","tigris","tidycensus")


  loader <- function(x){
  for( i in x ){
  if(!require(i, character.only = TRUE) ){
  install.packages(i, dependencies = TRUE)
  require(i, character.only = TRUE)
  }
  }
  }

 loader(pkgs)
 #lapply(pkgs,library,character.only = TRUE)

 ```

## Housing Price

 ```{r, echo=FALSE,comment=FALSE,message=FALSE}
 # load data
 dt <- fread("http://www.freddiemac.com/fmac-resources/research/docs/fmhpi_master_file.csv")

 dt[,hpa_yoy:=Index_SA/shift(Index_SA,12)-1,.(GEO_Type,GEO_Code,GEO_Name)]

dt_nv<- dt[GEO_Name=="NV" & Year>2010,]
head(dt_nv)

dcast(dt_nv,Year~Month,value.var="hpa_yoy")
dt_nv[,mname:=factor(month.abb[Month],levels=month.abb)]
dt_tab <- dcast(dt_nv,Year~mname,value.var="hpa_yoy")

house<- gt(dt_tab) %>%
opt_row_striping()%>%
fmt_percent(
columns = c(month.abb),
decimals = 1,
use_seps = FALSE
) %>%
 tab_header(title="Nevada House Price Growth",
         subtitle="12-month % change in Freddie Mac House Price Index" )%>%
 tab_options(
 data_row.padding = px(9),
 row_group.padding = px(9),
 table.font.size = px(11),
 source_notes.font.size = px(11),
 source_notes.padding = px(1))

 ```


 ## Including Plots

Housing Prices

```{r, echo=FALSE, message=FALSE}
house
```

Answer 1

真的不清楚问题是什么，我没有安装所有这些软件包，但据我所知，您需要将include=FALSE 放入第二个块的标题中。

行： dt[,hpa_yoy:=Index_SA/shift(Index_SA,12)-1,.(GEO_Type,GEO_Code,GEO_Name)] 和head(dt_nv) 因为它们没有分配给任何对象而导致问题，我认为 R 只是打印这些行描述的表格。

如果您不顾一切，请将此代码设为eval=FALSE，然后将代码复制到另一个带有include=FALSE 的块中，这样第一个块就在那里显示，而实际块被评估而不显示在文档中。