datapasta::tribble_paste allows you to preserve the dataframe with better formatting for a reprex, but converts the dates into strings:
library(datapasta)
df1 <- structure(list(month = structure(c(1477872000, 1480464000, 1483142400,
1485820800, 1488240000, 1490918400, 1493510400, 1496188800, 1498780800,
1501459200, 1504137600, 1506729600, 1509408000, 1.512e+09, 1514678400,
1517356800, 1519776000, 1522454400, 1525046400, 1527724800, 1530316800
), class = c("POSIXct", "POSIXt"), tzone = "UTC"), alpha = c(283L,
298L, 277L, 231L, 276L, 323L, 242L, 255L, 208L, 289L, 284L, 263L,
280L, 278L, 269L, 288L, 255L, 324L, 339L, 355L, 300L), alpha_mod = c(133L,
139L, 106L, 85L, 132L, 141L, 89L, 110L, 80L, 142L, 174L, 159L,
146L, 162L, 153L, 161L, 142L, 174L, 211L, 208L, 194L), beta = c(260L,
278L, 249L, 242L, 301L, 349L, 249L, 309L, 256L, 280L, 326L, 276L,
299L, 322L, 235L, 281L, 256L, 293L, 356L, 307L, 279L), beta_mod = c(102L,
119L, 92L, 107L, 119L, 126L, 108L, 132L, 89L, 141L, 199L, 148L,
161L, 160L, 125L, 159L, 137L, 139L, 208L, 177L, 162L), gam_ma = c(208L,
190L, 176L, 208L, 221L, 265L, 204L, 215L, 251L, 283L, 314L, 257L,
250L, 290L, 240L, 290L, 275L, 295L, 292L, 316L, 324L), gam_ma_mod = c(64L,
67L, 62L, 86L, 78L, 76L, 67L, 67L, 90L, 128L, 155L, 106L, 125L,
132L, 125L, 143L, 132L, 159L, 159L, 158L, 191L)), row.names = c(NA,
-21L), class = c("tbl_df", "tbl", "data.frame"))
datapasta::tribble_paste(df1)
new_df <- tibble::tribble(
~month, ~alpha, ~alpha_mod, ~beta, ~beta_mod, ~gam_ma, ~gam_ma_mod,
"2016-10-31", 283L, 133L, 260L, 102L, 208L, 64L,
"2016-11-30", 298L, 139L, 278L, 119L, 190L, 67L,
"2016-12-31", 277L, 106L, 249L, 92L, 176L, 62L,
"2017-01-31", 231L, 85L, 242L, 107L, 208L, 86L,
"2017-02-28", 276L, 132L, 301L, 119L, 221L, 78L,
"2017-03-31", 323L, 141L, 349L, 126L, 265L, 76L,
"2017-04-30", 242L, 89L, 249L, 108L, 204L, 67L,
"2017-05-31", 255L, 110L, 309L, 132L, 215L, 67L,
"2017-06-30", 208L, 80L, 256L, 89L, 251L, 90L,
"2017-07-31", 289L, 142L, 280L, 141L, 283L, 128L,
"2017-08-31", 284L, 174L, 326L, 199L, 314L, 155L,
"2017-09-30", 263L, 159L, 276L, 148L, 257L, 106L,
"2017-10-31", 280L, 146L, 299L, 161L, 250L, 125L,
"2017-11-30", 278L, 162L, 322L, 160L, 290L, 132L,
"2017-12-31", 269L, 153L, 235L, 125L, 240L, 125L,
"2018-01-31", 288L, 161L, 281L, 159L, 290L, 143L,
"2018-02-28", 255L, 142L, 256L, 137L, 275L, 132L,
"2018-03-31", 324L, 174L, 293L, 139L, 295L, 159L,
"2018-04-30", 339L, 211L, 356L, 208L, 292L, 159L,
"2018-05-31", 355L, 208L, 307L, 177L, 316L, 158L,
"2018-06-30", 300L, 194L, 279L, 162L, 324L, 191L
)
#check for equality:
> df1 == new_df
month alpha alpha_mod beta beta_mod gam_ma gam_ma_mod
[1,] FALSE TRUE TRUE TRUE TRUE TRUE TRUE
[2,] FALSE TRUE TRUE TRUE TRUE TRUE TRUE
[3,] FALSE TRUE TRUE TRUE TRUE TRUE TRUE
[4,] FALSE TRUE TRUE TRUE TRUE TRUE TRUE
[5,] FALSE TRUE TRUE TRUE TRUE TRUE TRUE
[6,] FALSE TRUE TRUE TRUE TRUE TRUE TRUE
[7,] FALSE TRUE TRUE TRUE TRUE TRUE TRUE
[8,] FALSE TRUE TRUE TRUE TRUE TRUE TRUE
[9,] FALSE TRUE TRUE TRUE TRUE TRUE TRUE
[10,] FALSE TRUE TRUE TRUE TRUE TRUE TRUE
[11,] FALSE TRUE TRUE TRUE TRUE TRUE TRUE
[12,] FALSE TRUE TRUE TRUE TRUE TRUE TRUE
[13,] FALSE TRUE TRUE TRUE TRUE TRUE TRUE
[14,] FALSE TRUE TRUE TRUE TRUE TRUE TRUE
[15,] FALSE TRUE TRUE TRUE TRUE TRUE TRUE
[16,] FALSE TRUE TRUE TRUE TRUE TRUE TRUE
[17,] FALSE TRUE TRUE TRUE TRUE TRUE TRUE
[18,] FALSE TRUE TRUE TRUE TRUE TRUE TRUE
[19,] FALSE TRUE TRUE TRUE TRUE TRUE TRUE
[20,] FALSE TRUE TRUE TRUE TRUE TRUE TRUE
[21,] FALSE TRUE TRUE TRUE TRUE TRUE TRUE