将矩阵或data.frame转换为带换行符的字符串

Question

需要一个将矩阵或data.frame转换为带有换行符的字符串的函数，以便它“看起来”相同。

我可以写一个循环。有快速解决方案吗？

数据

df <- mtcars[1:3,1:3]

               mpg cyl disp
Mazda RX4     21.0   6  160
Mazda RX4 Wag 21.0   6  160
Datsun 710    22.8   4  108

期望的结果

toStringFun(df)

new <-" mpg cyl disp\n21.0   6  160\n21.0   6  160\n22.8   4  108"
cat(new)

修改

请注意：列应该与正确的间距很好地对齐

Answer 1

capture.output()和paste的联合可行：

s <- capture.output(print(df,row.names = FALSE))
s <- paste(s, collapse = "\n")
> s
[1] "               mpg cyl disp\nMazda RX4     21.0   6  160\nMazda RX4 Wag 21.0   6  160\nDatsun 710    22.8   4  108"