Use names in named list as columns of tibble

gl-id0019-map-enframe-unnest

# sample data
tib <- tibble(
    source = rep("ABC", 5),
    year = seq(2016, 2020, 1)
)

# preprare list
tib_lst <- lst(
    YEM = dat,
    ZMB = dat,
    ZWE = dat
)

# count number of rows and turn into dataframe with list element names as column
tib_lst %>% 
    
    # count rows of each list element
    map(count) %>% 
    
    # turn list into tibble with list column
    tibble::enframe() %>% 
    
    # turn list column into regular column 
    tidyr::unnest(cols = value)