“interpreter readable”打印(R中)

Question

我想知道是否有一种方法可以以一种“解释器可读”的方式打印对象，它可以做到如下所示：

> x <- c(1:5,8)
> print.ir(x)
 c(1,2,3,4,5,8)
> x <- matrix(1:4, ncol=2)
> print.ir(x)
 matrix(c(1,2,3,4), ncol=2, nrow=2)

以便可以将结果复制粘贴到R脚本或另一个R会话中。

Answer 1

使用dput()执行以下操作：

x <- c(1:5,8)
dput(x)
c(1, 2, 3, 4, 5, 8)

x <- matrix(1:4, ncol=2)
dput(x)
structure(1:4, .Dim = c(2L, 2L))

试试看：

z <- structure(1:4, .Dim = c(2L, 2L))
z
     [,1] [,2]
[1,]    1    3
[2,]    2    4