使用Rscript,是否有一种很好的方法来抑制非脚本输出？

当然有，你可以使用sink()函数来抑制非脚本输出。sink()函数可以将输出重定向到指定的文件或者连接。

下面是一个简单的示例：

# 将输出重定向到文件
sink("output.txt")

# 你的代码
# ...

# 恢复默认输出
sink()

这样，你的脚本中除了sink()函数内的代码外，其他输出都会被抑制。

另外，你还可以使用capture.output()函数来捕获输出，并将其存储在一个变量中，而不是直接显示在控制台上。

# 捕获输出
output <- capture.output({
  # 你的代码
  # ...
})

# 如果需要，可以在此处打印捕获的输出
cat(output, sep = "\n")

这样，你的脚本中的输出将被捕获并存储在output变量中，而不是直接显示在控制台上。