Baskıdan konsere durma

Question

lapply'u kullandığımda ve konsola yazdırıldığında, istenen iletinin konsola yazdırılmasını istediğim halde istemeden [[i]]NULL yazdırıyor. suppressWarnings ve suppressMessages'u denedim ancak bunlar istenmeyen saldırganı kaldırmıyor. lapply'u aradım ve onu susturmak için bir argüman görmüyorum. Bu, işleve müdahale etmediğinden daha estetiktir. Kullanıcı istediği takdirde kapatabildiği sürece, konsola allternatif baskıya karşı değilim. İşte

bir örnek fonksiyonu, çıktı ve ben almak istiyorum neyi:

Numune fonksiyonu:

FUN <- function(x) { 
    FUN2 <- function(z) message(z) 
    lapply(1:3, function(i) FUN2(paste(x, i))) 
} 

FUN("hello") 

Çıktı:

hello 1 
hello 2 
hello 3 
[[1]] 
NULL 

[[2]] 
NULL 

[[3]] 
NULL 

İstenilen Çıktı :

hello 1 
hello 2 
hello 3 

Answer 1

Kullanım invisible, örneğin:

invisible(FUN("hello")) 
hello 1 
hello 2 
hello 3 

Fonksiyondaki lapply çağrı etrafında sarın da o tidier yapmak. plyr gelen

Answer 2

Kullanım l_ply:

library(plyr) 
FUN <- function(x) { 
    FUN2 <- function(z) message(z) 
    l_ply(1:3, function(i) FUN2(paste(x, i))) 
} 
FUN("hello") 

Answer 3

Ben invisible(capture.output()) orada cevap (konsola baskı çıkışlarının sorunlarımı, Suppress output of stationarity test that is printed to screen için daha iyi bir yanıt olduğunu ortaya koymuştur Ayrıca expect_output testthat bağlamında.