# # - - - - -设置,回声= 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,回声= FALSE - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - suppressWarnings (suppressPackageStartupMessages(库(interactiveDisplayBase))) # #——dataframe_demo, eval = FALSE - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - # mtcars2 < -显示(mtcars)