Вывод списков готов к вводу, как в datapasta :: dpasta

Question

Я стараюсь организовывать свои сценарии, и недавно нашел эту действительно полезную функцию dpasta () из пакета datapasta. Это работает, как показано ниже:

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 вектор, data.frame или tibble

Так что мы можем просто изменить ваш список на tibble:

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)
  )