This is what a the data part of a reprex data looks like
sales <- structure(
list(
confirmed =
c(
2,
5,
18,
28,
43,
61,
95,
139,
245,
388,
593,
978,
1501,
2336,
2922,
3513,
4747,
5823,
6566,
7161,
8042,
9000,
10075,
11364,
12729,
13938,
14991,
16169,
17361,
18407,
19644,
20610,
21638,
23049,
24811,
27017,
29406,
32332,
35408,
38309
),
deaths =
c(
2,
2,
4,
5,
8,
12,
16,
19,
26,
34,
43,
54,
66,
77,
92,
107,
124,
145,
194,
237,
291,
354,
429,
514,
611,
724,
853,
988,
1135,
1284,
1433,
1556,
1685,
1812,
1934,
2077,
2234,
2378,
2517,
2640
),
recovered =
c(
0,
0,
0,
0,
0,
0,
0,
49,
49,
73,
123,
175,
291,
291,
552,
739,
913,
1669,
2134,
2394,
2731,
2959,
2959,
2959,
2959,
4590,
4590,
5389,
5389,
5710,
6745,
7635,
7931,
7931,
8913,
9625,
10457,
11133,
11679,
12391
)
),
class =
c("spec_tbl_df", "tbl_df", "tbl", "data.frame"),
row.names =
c(NA,-40L),
spec = structure(list(
cols = list(
confirmed = structure(list(),
class =
c("collector_double", "collector")),
deaths = structure(list(),
class =
c("collector_double", "collector")),
recovered = structure(list(),
class =
c("collector_double", "collector"))
),
default = structure(list(),
class =
c("collector_guess", "collector")),
skip = 1
),
class = "col_spec")
)
sales
#> confirmed deaths recovered
#> 1 2 2 0
#> 2 5 2 0
#> 3 18 4 0
#> 4 28 5 0
#> 5 43 8 0
#> 6 61 12 0
#> 7 95 16 0
#> 8 139 19 49
#> 9 245 26 49
#> 10 388 34 73
#> 11 593 43 123
#> 12 978 54 175
#> 13 1501 66 291
#> 14 2336 77 291
#> 15 2922 92 552
#> 16 3513 107 739
#> 17 4747 124 913
#> 18 5823 145 1669
#> 19 6566 194 2134
#> 20 7161 237 2394
#> 21 8042 291 2731
#> 22 9000 354 2959
#> 23 10075 429 2959
#> 24 11364 514 2959
#> 25 12729 611 2959
#> 26 13938 724 4590
#> 27 14991 853 4590
#> 28 16169 988 5389
#> 29 17361 1135 5389
#> 30 18407 1284 5710
#> 31 19644 1433 6745
#> 32 20610 1556 7635
#> 33 21638 1685 7931
#> 34 23049 1812 7931
#> 35 24811 1934 8913
#> 36 27017 2077 9625
#> 37 29406 2234 10457
#> 38 32332 2378 11133
#> 39 35408 2517 11679
#> 40 38309 2640 12391
Created on 2020-04-05 by the reprex package (v0.3.0)
To create it, you can use this function
require(clipr)
#> Loading required package: clipr
#> Welcome to clipr. See ?write_clip for advisories on writing to the clipboard in R.
require(magrittr)
#> Loading required package: magrittr
require(stringr)
#> Loading required package: stringr
specimen <- function(x)
deparse(x) %>%
str_c(collapse = '') %>%
str_replace_all('\\s+', ' ') %>%
str_replace_all('\\s*([^,\\()]+ =) (c\\()', '\n \\1\n \\2') %>%
str_replace_all('(,) (class =)', '\\1\n \\2') %>%
write_clip(allow_non_interactive = TRUE)
by
specimen(sales)
and just cutting and pasting into the post.
It would be nice to have the rest of the code, too, but that is a bare minimum