将data.table转换为data.frame，然后dput它。

dput(as.data.frame(dattab))
## structure(list(a = 1:5, b = 6:10), row.names = c(NA, -5L), class = "data.frame")

有时候我觉得把它分享给合适的类会很有用，所以我使用这个函数：

#' dput into a single line
#'
#' @param x object
#' @param assign logical, whether to get the 'x' object's name and
#'   prepend it to the string
#' @param DT logical, whether to remove (and wrap with 'as.data.table')
#'   'internal.selfref' in the dput output
#' @return character length 1, invisibly
#' @export
r2dput <- function(x, assign = TRUE, DT = TRUE) {
  out <- deparse1(x)
  if (isTRUE(DT)) {
    out2 <- gsub(",\\s*\\.internal\\.selfref\\s*=\\s*<pointer:\\s*[0-9a-fx]+>", "", out)
    if (out != out2) {
      out <- paste0("data.table::as.data.table(", out2, ")")
    }
  }
  if (assign) {
    out <- paste(c(as.character(substitute(x)), "<-", out), collapse = " ")
  }
  writeLines(out, con = "clipboard")
  invisible(out)
}

作为一个例子，

MT <- as.data.table(mtcars[1:3, 11:4])
MT
#     carb  gear    am    vs  qsec    wt  drat    hp
#    <num> <num> <num> <num> <num> <num> <num> <num>
# 1:     4     4     1     0 16.46 2.620  3.90   110
# 2:     4     4     1     0 17.02 2.875  3.90   110
# 3:     1     4     1     1 18.61 2.320  3.85    93

当我想在SO上（或与同事）分享问题中的数据时，我输入r2dput(MT)（因为，你知道，我是r2 evans;- ），我只是将（Ctrl-V）粘贴到评论/问题/答案中，并得到以下内容：

MT <- data.table::as.data.table(structure(list(carb = c(4, 4, 1), gear = c(4, 4, 4), am = c(1, 1, 1), vs = c(0, 0, 1), qsec = c(16.46, 17.02, 18.61), wt = c(2.62, 2.875, 2.32), drat = c(3.9, 3.9, 3.85), hp = c(110, 110, 93)), row.names = c(NA, -3L), class = c("data.table", "data.frame")))

这删除了不起作用的pointer，它 Package 在as.data.table(.)中，清楚地表明我真正使用的是什么类，并将其全部保留在一行中（因为我不喜欢格式化代码块中默认的dput换行符方法）。
(The writeLines(., con="clipboard")的使用是以windows为中心的;linux/macos需要其他机制，我只是没有调整我的代码，使其与平台无关。）

考虑一下{constructive}包，它几乎总是比dput()更好，尤其是对于Stack Overflow。它很快就会在CRAN上发布，但现在你需要安装GitHub版本。

# remotes::install_github("cynkra/constructive")
library(constructive)
dattab <- data.table::data.table(a = 1:5, b = 6:10)
MT <- data.table::as.data.table(mtcars[1:3, 11:4])

construct(dattab)
#> data.table::data.table(a = 1:5, b = 6:10)

construct(MT)
#> data.table::data.table(
#>   carb = c(4, 4, 1),
#>   gear = rep(4, 3L),
#>   am = rep(1, 3L),
#>   vs = c(0, 0, 1),
#>   qsec = c(16.46, 17.02, 18.61),
#>   wt = c(2.62, 2.875, 2.32),
#>   drat = c(3.9, 3.9, 3.85),
#>   hp = c(110, 110, 93)
#> )

创建于2023-04-29带有reprex v2.0.2