输出列表已准备就绪，如datapasta :: dpasta

Question

我正在尝试使脚本井井有条，最近从datapasta软件包中发现了这个非常有用的函数dpasta（）。它的工作原理如下图所示：

library(datapasta)
df<-data.frame(A=seq(1,4), B=rep(NA,4))
dpasta(df)
>data.frame(
           A = c(1L, 2L, 3L, 4L),
           B = c(NA, NA, NA, NA)
)

但是，我想以类似的方式输出许多复杂的列表，但是dpasta在列表上不起作用。谁能建议一个可以用这样的列表做类似工作的函数？

  L<-list(A=rep(0,1), rep(NA,2), rep(NA,32), B=c(1,100,45))

Answer 1

虽然我认为@MrFlick的dput(L)和/或dump("L", "")的解决方案是这里最好的解决方案，但是如果您设置为dpasta解决方案，则帮助页面会建议：

[input矢量，数据帧或小标题

所以我们可以将您的列表更改为小标题：

tibble_list <- tibble::tibble(L)

dpasta(tibble_list)

>tibble::tribble(
                                                                                                                                 ~L,
                                                                                                                                  0,
                                                                                                                          c(NA, NA),
  c(NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA),
                                                                                                                      c(1, 100, 45)
  )