Dừng lapply từ in đến console

Question

Khi tôi sử dụng lapply và in ra bảng điều khiển, nó in không mong muốn [[i]]NULL mặc dù tôi muốn thông báo dự định in trên bảng điều khiển. Tôi đã thử suppressWarnings và suppressMessages nhưng những điều này không xóa người phạm tội không mong muốn. Tôi đã tìm kiếm lapply và không thấy một đối số để tắt tiếng. Điều này thẩm mỹ hơn vì nó không can thiệp vào chức năng. Tôi không phản đối việc in tất cả các bản in trên bảng điều khiển, miễn là người dùng có thể tắt nó nếu muốn.

Dưới đây là một chức năng ví dụ, đầu ra và những gì tôi muốn nhận được: chức năng

mẫu:

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

FUN("hello") 

Output:

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

[[2]] 
NULL 

[[3]] 
NULL 

mong muốn Output :

hello 1 
hello 2 
hello 3 

Answer 1

Sử dụng invisible, ví dụ:

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

Bạn có thể quấn nó xung quanh lapply cuộc gọi trong hàm quá để làm cho nó ngăn nắp.

Answer 2

Sử dụng l_ply từ plyr:

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

Answer 3

tôi thấy rằng câu trả lời có (với invisible(capture.output()) là một câu trả lời tốt hơn cho những vấn đề của tôi về kết quả đầu ra in ra cửa sổ Console, Suppress output of stationarity test that is printed to screen Cũng trong bối cảnh testthat các expect_output.