construct_repair

[moodymudskipper]

draft/WIP

foo <- list(1)
attributes(foo) <- list(a1=1,a2=2)
bar <- list(1)
attributes(bar) <- list(a1=1,a3=2)
x <- list(foo)
y <- list(bar)
construct_repair(x, y)

y %>%
  purrr::modify_in(1L, "structure", a3 = NULL, a2 = 2)

adresses #3