Based on the provided code and explanation, here is a concise version of the solution:

# Decompose each top-level list into a named-list
datlst_decomposed <- lapply(datlst, function(x) {
  unlist(as.list(x))
})

# Convert the resulting vectors back to data.frame
df <- do.call(rbind, datlst_decomposed)

# Print the final data frame
print(df)

This code uses lapply to decompose each top-level list into a named-list, and then uses do.call(rbind, ...), which is an alternative to dplyr::bind_rows, to combine the lists into a single data frame. The fill=TRUE argument in data.table::rbindlist ensures that any missing values are filled with NA before combining the datasets.

Last modified on 2024-05-12