禁止R中Keras的控制台輸出

Question

我正在嘗試在docker環境中使用R腳本對要傳遞給它的輸入進行一些分類。 該腳本只應打印分類的輸出，但是我總是得到Using TensorFlow backend. 作為第一行的輸出，其中調用了Keras函數。

我做了一個小的工作例子。

library(keras)

v <- (c(1,2,3))
print(v)
vCat<-to_categorical(v)

我想將其顯示為輸出：

[1] 1 2 3

我明白了

[1] 1 2 3
Using TensorFlow backend.

因此，我在Google和stackoverflow上搜索了有關接收sink和suppress...以及其他內容的信息，例如，從R中自動輸出抑制到控制台，在R中抑制一個命令的輸出，並抑制 R中 輸出到控制台的自動輸出 。 然后，我嘗試了以下代碼：

library(keras, quietly = T)

v <- (c(1,2,3))
print(v) 
sink("/dev/null")
capture.output(suppressMessages(suppressWarnings(
suppressPackageStartupMessages(
vCat<-to_categorical(v) ))), file = "/dev/null")
sink()

這仍然不會抑制Using TensorFlow backend. 信息。 該腳本是在r test.R環境中使用r test.R ： r test.R 注意：僅在Rstudio中運行腳本時，不會收到此消息。

Answer 1

這是Keras的問題（即不是R或Tensorflow的問題），正如我已經評論過的，有好幾個人對此表示抱怨 ，但是到目前為止，Keras維護人員尚未提出解決方案。

正如上面的問題線程中所建議的那樣， 黑客是要找到keras/backend/__init__.py文件並注釋掉以下行 ：

sys.stderr.write('Using TensorFlow backend.\n')

上次我檢查時，R中的Keras僅使用Tensorflow后端，因此您無需為__init__.py的其他后端選項重復此操作。