Rectangling data: special cases

Want to recycle the original variable name with dplyr::unnest_wider()?

df_named

## # A tibble: 3 × 2
##       x y               
##   <dbl> <list>          
## 1     1 <named list [2]>
## 2     2 <named list [2]>
## 3     3 <named list [2]>

str(df_named)

## tibble [3 × 2] (S3: tbl_df/tbl/data.frame)
##  $ x: num [1:3] 1 2 3
##  $ y:List of 3
##   ..$ :List of 2
##   .. ..$ a: num 11
##   .. ..$ b: num 12
##   ..$ :List of 2
##   .. ..$ a: num 21
##   .. ..$ b: num 22
##   ..$ :List of 2
##   .. ..$ a: num 31
##   .. ..$ b: num 32