Dput simplificado () em R

Eu sinto falta de uma maneira de adicionar dados a uma resposta SO de maneira transparente. Minha experiência é que ostructure objeto dedput() às vezes confunde usuários inexperientes desnecessários. No entanto, não tenho paciência para copiar / colar em um quadro de dados simples a cada vez e gostaria de automatizá-lo. Algo semelhante adput(), mas em uma versão simplificada.

Digamos que eu copie / cole e alguns outros hos tenham dados como este,

Df <- data.frame(A = c(2, 2, 2, 6, 7, 8),
                 B = c("A", "G", "N", NA, "L", "L"),
                 C = c(1L, 3L, 5L, NA, NA, NA))

se parece com isso,

Df
#>   A    B  C
#> 1 2    A  1
#> 2 2    G  3
#> 3 2    N  5
#> 4 6 <NA> NA
#> 5 7    L NA
#> 6 8    L NA

Dentro de um inteiro, um fator e um vetor numérico,

str(Df)
#> 'data.frame':    6 obs. of  3 variables:
#>  $ A: num  2 2 2 6 7 8
#>  $ B: Factor w/ 4 levels "A","G","L","N": 1 2 4 NA 3 3
#>  $ C: int  1 3 5 NA NA NA

Agora, gostaria de compartilhar isso no SO, mas nem sempre tenho ooriginal quadro de dados de onde veio. Mais frequentemente do que não eupipe() em forma SO e a única maneira que eu conheço para obtê-lo édput(). Gostar,

dput(Df)
#> structure(list(A = c(2, 2, 2, 6, 7, 8), B = structure(c(1L, 2L, 
#> 4L, NA, 3L, 3L), .Label = c("A", "G", "L", "N"), class = "factor"), 
#> C = c(1L, 3L, 5L, NA, NA, NA)), .Names = c("A", "B", "C"), row.names = c(NA, 
#> -6L), class = "data.frame")

mas, como eu disse no topo, essesstructures pode parecer bastante confuso. Por esse motivo, estou procurando uma maneira de comprimirdput()saída de alguma forma. Eu imagino uma saída que se pareça com isso,

dput_small(Df)
#> data.frame(A = c(2, 2, 2, 6, 7, 8), B = c("A", "G", "N", NA, "L", "L"),
#> C = c(1L, 3L, 5L, NA, NA, NA))

Isso é possível? Eu percebo que há outras classes, comolists, tbl, tbl_dfetc.