R'deki print() komutu sessizleştirilebilir mi?

Question

R bazı fonksiyonlar bilgi basabilir ve değerler döndürebilir, baskı susturulabilir mi? Örneğin

: Ben gibi dönüşünü saklayabilir

> print.and.return() 
[1] "foo" 
[1] "bar" 
> 

print.and.return <- function() { 
    print("foo") 
    return("bar") 
} 

döner

:

> z <- print.and.return() 
[1] "foo" 
> z 
[1] "bar" 
> 

Ben "foo" ait baskı engelleyebilir miyim?

Answer 1

Sen fonksiyonunu

deprintize<-function(f){ 
return(function(...) {capture.output(w<-f(...));return(w);}); 
} 

tanımlayarak örneğin R gizli fonksiyonel yapısını kullanabilir 'sessiz' olanlara 'baskı' fonksiyonları dönüştürecektir

:

noisyf<-function(x){ 
print("BOO!"); 
sin(x); 
} 

noisyf(7) 
deprintize(noisyf)(7) 
deprintize(noisyf)->silentf;silentf(7) 

Answer 2

?capture.output 

Answer 3

Baskı işleminin yan etkisine kesinlikle kendi işlevlerinizle ihtiyacınız varsa, neden bir seçenek yapmıyorsunuz?

print.and.return <- function(..., verbose=TRUE) { 
    if (verbose) 
    print("foo") 
    return("bar") 
} 


> print.and.return() 
[1] "foo" 
[1] "bar" 
> print.and.return(verbose=FALSE) 
[1] "bar" 
> 

Answer 4

Kabul ediyorum hadley ve mbq'ün en genel çözüm olarak capture.output önerisi. Yazdığınız özel işlevler için (yani içeriği kontrol ettiğiniz öğeler), print yerine message kullanın. Bu şekilde suppressMessages ile çıkışı kaldırabilirsiniz.

print.and.return2 <- function() { 
    message("foo") 
    return("bar") 
} 

# Compare: 
print.and.return2() 
suppressMessages(print.and.return2()) 

Answer 5

Bu gönderiyi yeniden diriltebileceğimi biliyorum, ancak başkası yaptığım gibi bulabilir. Benim işlevlerin birinde aynı davranışı ilgi ve sadece "görünmezlik" rastladı:

O return() aynı kullanımı vardır ama sadece döndürülen değeri yazdırmak yoktur:

invisible(variable) 

Böylece, @ayman tarafından verilen örneğin: