如何在Sweave代码块中执行并展示代码却抑制R包内部print输出？

没问题，针对你遇到的“Sweave代码块既要执行、展示代码，又要屏蔽R包内部print中间输出”的需求，这里有几个实用的局部解决方案（都是针对单个代码块，不会影响全局设置）：

方法1：用capture.output()包裹产生冗余输出的代码 #

把R包中会打印中间步骤的函数调用，用invisible(capture.output())包裹起来，这样既会执行代码，又能捕获所有print输出，不会在PDF中显示。示例代码块：

<<eval=T, echo=T>>=
# 保留你想展示的代码逻辑
library(yourPackage)

# 包裹产生冗余输出的函数调用
invisible(capture.output({
  # 这里放会打印中间步骤的R包代码，比如并行设置
  setupParallelWorkers(ncores = 4)
  runParallelTask(data = myData)
}))

# 你主动想要展示的输出（比如结果统计）可以正常保留
summary(myResults)
@

invisible()是为了避免capture.output()本身返回的输出字符串被打印出来，完美屏蔽冗余内容，同时保留你需要展示的结果。

方法2：局部重定向输出到临时文件 #

如果需要屏蔽整个代码块内的所有冗余print输出，可以在代码块开头重定向输出，结尾恢复，同时用on.exit()确保即使出错也能恢复输出流：

<<eval=T, echo=T>>=
# 临时重定向输出到临时文件
temp_output <- tempfile()
sink(temp_output)
on.exit(sink())  # 确保代码执行完后恢复输出

# 这里放包含R包冗余print输出的代码
library(yourPackage)
setupParallelWorkers(ncores = 4)
runParallelTask(data = myData)

# 如果你需要展示特定结果，可以单独重定向回来再输出
sink()  # 临时恢复输出
summary(myResults)
sink(temp_output, append = TRUE)  # 继续屏蔽后续冗余输出
@

这个方法适合整个代码块大部分都是冗余输出，只有少数结果需要展示的场景。

方法3：利用Sweave的results参数（谨慎使用） #

如果你的代码块不需要展示任何R输出（只需要执行代码、展示代码），可以直接设置results=hide选项：

<<eval=T, echo=T, results=hide>>=
# 这里放会产生冗余print输出的R包代码
library(yourPackage)
setupParallelWorkers(ncores = 4)
runParallelTask(data = myData)
@

注意：这个选项会隐藏所有R代码的输出，包括你自己主动打印的结果，所以只适合不需要展示任何输出的代码块。

以上几个方法都是针对单个代码块的局部设置，完全符合你“部分代码块保留现有输出，部分屏蔽冗余print”的需求，不会影响其他代码块的行为。

内容的提问来源于stack exchange，提问作者Anthony Nash