# #设置,回声= FALSE -------------------------------------------------------- suppressWarnings (suppressPackageStartupMessages(库(knitr)))选项(宽度= 80)# #——wrap-hook回声= FALSE ---------------------------------------------------- hook_output = knit_hooks得到(“输出”)knit_hooks设置美元(输出= (x,选项){#这个钩子函数只有当谱线宽度的选择是使用not NULL如果(!。空(n < -选择线宽美元)){x = knitr::: split_lines (x) #比n线宽应该包装如果(任何(nchar (x) > n)) x = strwrap (x,宽度= n) x =粘贴(x,崩溃= ' \ n ')} hook_output (x)选项 ) }) ## ---- interactiveDisplayBase-load,包括= TRUE,结果=“隐藏”,消息= FALSE,警告= FALSE——图书馆(interactiveDisplayBase) # #——dataframe_demo, eval = FALSE ----------------------------------------------- # mtcars2 < -显示器(mtcars)