r-将矩阵或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 dispn21.0   6  160n21.0   6  160n22.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 dispnMazda RX4     21.0   6  160nMazda RX4 Wag 21.0   6  160nDatsun 710    22.8   4  108"