Extraño una forma de agregar datos a una respuesta de SO de manera transparente. Mi experiencia es que lastructure objeto dedput() A veces confunde usuarios inexpertos innecesarios. Sin embargo, no tengo la paciencia para copiarlo / pegarlo en un marco de datos simple cada vez y me gustaría automatizarlo. Algo similar adput(), pero en una versión simplificada.

Digo que por copiar / pegar y algunos otros hos tienen datos 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 ve como esto,

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 un entero, un factor y un vector 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

Ahora, me gustaría compartir esto en SO, pero no siempre tengo laoriginal marco de datos de donde vino. Más a menudo que no yopipe() Es en la forma SO y la única manera que conozco para sacarlo esdput(). Me gusta,

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

Pero, como dije en la parte superior, estosstructures puede parecer bastante confuso. Por eso busco una forma de comprimir.dput()Es la salida de alguna manera. Me imagino una salida que se parece a esto,

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

¿Es eso posible? Me doy cuenta de que hay otras clases, comolists, tbl, tbl_df, etc.