我正在使用R Markdown和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)
非常感谢你的帮助。