使用knitr包在R Markdown中执行代码时遭遇unexpected end of input错误的求助

这个错误的原因很明确——你的代码里最后一个%>%管道运算符后面没有对应的函数，导致R解析器无法完成代码的解析，所以抛出了"unexpected end of input"（意外输入结束）的错误。

看你的代码：

library(knitr)
data <- read.delim('src/1.QC_mito/percent_mito.txt',sep='\t',header=T)
kable(data, "html") %>% kable_styling() %>% 
#scroll_box(width = "810px",height = "200px")

你把scroll_box()函数调用注释掉了，但前面的%>%还保留着，这就相当于告诉R“我接下来还要调用一个函数”，但实际上没有后续内容，自然会报错。

有两种简单的修复方式：

方式1：移除多余的管道符 #

如果不需要scroll_box功能，直接删掉最后一行的%>%即可：

library(knitr)
data <- read.delim('src/1.QC_mito/percent_mito.txt',sep='\t',header=T)
kable(data, "html") %>% kable_styling()

方式2：启用scroll_box函数 #

如果需要滚动框功能，取消注释scroll_box那一行，让链式调用完整：

library(knitr)
# 注意：scroll_box属于kableExtra包，需要先加载它
library(kableExtra)
data <- read.delim('src/1.QC_mito/percent_mito.txt',sep='\t',header=T)
kable(data, "html") %>% kable_styling() %>% 
  scroll_box(width = "810px",height = "200px")

小提示：scroll_box()是kableExtra包的函数，所以别忘了先加载kableExtra库，否则还会报找不到函数的错误。

内容的提问来源于stack exchange，提问作者Thomas Lordick