当"message=FALSE“不起作用时，我如何在R标记中隐藏消息

Question

我正在使用running和text2vec，并希望抑制来自运行glove$fit_transform()函数的消息。我尝试过message=FALSE和warning=FALSE，也尝试过一些恶意的尝试来解决这个问题，但都没有效果。我非常感谢你对这个问题的看法。

library(gutenbergr)
library(tidyverse)
library(text2vec)

h_g_wells <- gutenberg_download(35)

h_g_wells <- h_g_wells %>%
  sample_n(20)

vocab_list = list(h_g_wells$text)

it = itoken(vocab_list, progressbar = FALSE)

vocab = create_vocabulary(it)

vocab = prune_vocabulary(vocab, term_count_min = 1)

vectorizer = vocab_vectorizer(vocab)

tcm = create_tcm(it, vectorizer, skip_grams_window = 5)

glove = GlobalVectors$new(rank = 4, x_max = 100)
    
wv_main = glove$fit_transform(tcm, n_iter = 1000, convergence_tol = 0.00000001, n_threads = 24)

非常感谢你的帮助。

Answer 1

我不知道这个功能。也许它会触发一个cat。我试着使用这个函数：

quiet <- function(x) {
  sink(tempfile())
  on.exit(sink())
  invisible(force(x))
}

就像这样：

quiet(glove$fit_transform(tcm, n_iter = 1000, ......))