代码之家  ›  专栏  ›  技术社区  ›  generic

当“message=FALSE”不起作用时,如何在R markdown中隐藏消息

  •  0
  • generic  · 技术社区  · 3 年前

    我正在使用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)
    

    非常感谢你的帮助。

    1 回复  |  直到 3 年前
        1
  •  2
  •   Stéphane Laurent    3 年前

    我不知道这个函数。也许这会引发一场灾难 cat .我会尝试使用这个功能:

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

    这样地:

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