使用 sf Library 将库加载到降雪集群时抑制启动消息

Question

我在下面运行的代码示例。

library(snowfall)
library(snow)

sfInit(parallel = TRUE, cpus = 3)

sfLibrary(raster)

Library raster loaded.
Library raster loaded in cluster.

我想阻止 sfLibrary 打印消息。我不知道怎么做。请帮忙...

谢谢。

编辑 1：这不起作用：

suppressMessages(sfLibrary(raster))

已加载库栅格。

编辑 2：这不起作用：

suppressPackageStartupMessages(sfLibrary(raster))

已加载库栅格。

已加载到集群中的库栅格。

Answer 1

使用源代码。

如果您查看sfLibrary 的源代码，特别是prints those messages 的位置，您会发现它使用了sfCat。追踪它（same file），它使用cat。

我知道防止cat 转储到控制台的两种方法：capture.output 和sink。

1. capture.output：“评估其参数，并将输出作为字符串返回或发送到文件”。

   cat("quux4\n")
   # quux4
   invisible(capture.output(cat("quux5\n")))
   cat("quux6\n")
   # quux6
   

   由于capture.output 以character 向量的形式返回捕获的输出可见，将其包装在invisible 中或将返回值存储到变量中（被忽略和/或删除）将阻止它在控制台上的输出。

2. sink:“将 R 输出发送到文件”。

   cat("quux1\n")
   # quux1
   sink("ignore_me.txt")
   cat("quux2\n")
   sink(NULL) # remove the sink
   cat("quux3\n")
   # quux3
   

我个人认为使用sink（通常）存在一些风险，尤其是在自动化方面。一个很好的例子是knitr 在捕获代码块的输出时使用sink；对sink 的嵌套调用有问题。精明的读者会注意到capture.outputuses sink，所以在这方面两者都不是更好。

再次查看源代码（上面的第一个链接），

else {
  ## Load message in slave logs.
  sfCat( paste( "Library", .sfPars$package, "loaded.\n" ) )

  ## Message in masterlog.
  message( paste( "Library", .sfPars$package, "loaded in cluster.\n" ) )
}

你会看到它还调用了message，默认情况下capture.output 没有捕获它。您始终可以使用capture.output(..., type="message")，但您也不会捕获cat 输出。所以你不得不捕获这两种类型，无论是嵌套的capture.output还是suppressMessages。

我建议你可以使用suppressMessages(invisible(capture.output(sfLibrary(raster)))) 或编写一些帮助函数来为你做这件事。