R语言中dput输出单行显示及复制到剪贴板的方法

1. 让dput输出以单行形式展示 #

dput默认会换行输出，要让结果变成单行，只需给函数的control参数传入"compact"或"all"，这两个参数会压缩输出格式为单行：

# 示例对象
x <- data.frame(a = 1:2, b = c("x", "y"))
# 生成单行dput输出
dput(x, control = "compact")

输出结果为单行格式：

structure(list(a = 1:2, b = c("x", "y")), class = "data.frame", row.names = c(NA, -2L))

2. 将dput获取的字符串复制到剪贴板 #

有两种实用方法：

方法一：基础R函数实现（需适配操作系统） #

先用capture.output()捕获dput的输出内容，再用writeLines()写入剪贴板：

# 捕获dput的单行输出内容
dput_content <- capture.output(dput(x, control = "compact"))
# Windows系统
writeLines(dput_content, "clipboard")
# macOS系统
writeLines(dput_content, "pipe:pbcopy")
# Linux系统（需提前安装xclip工具）
writeLines(dput_content, "pipe:xclip -selection clipboard")

方法二：使用clipr包（跨平台更省心） #

先安装并加载clipr包，它会自动适配不同操作系统的剪贴板：

# 首次使用需安装包
install.packages("clipr")
# 加载包
library(clipr)
# 直接将dput内容复制到剪贴板
write_clip(capture.output(dput(x, control = "compact")))

内容的提问来源于stack exchange，提问作者Julien