r - 将打印的消息转换为字符向量

Question

假设我有一个文件 "data.txt" ，可以用下面的代码创建

m <- matrix(c(13, 14, 4950, 20, 50, 4949, 22, 98, 4948, 
              30, 58, 4947, 43, 48, 4946), 5, byrow = TRUE)
write.table(m, "data.txt", row.names = FALSE, col.names = FALSE)

使用 scan 将文件读入 R ，消息与数据一起传递。

( s <- scan("data.txt") )
# Read 15 items
#  [1]   13   14 4950   20   50 4949   22   98 4948
# [10]   30   58 4947   43   48 4946

我想检索消息 Read 15 items作为字符向量。我知道我可以通过输入 last.warning 来获得最后记录的警告。 ，并且可以用 names(last.warning) 把它变成一个字符向量，但没有 last.message 这样的对象.

有没有办法将输出的消息转换为字符向量？想要的结果是

[1] "Read 15 items" 

Answer 1

message() 的默认处理程序将结果发送到 stderr通过 cat() .你可以用

tc <- textConnection("messages","w")
sink(tc, type="message")
s <- scan("data.txt")
sink(NULL, type="message")
close(tc)

messages
# [1] "Read 5 items"