# Convert data.frame to list
d <- dplyr::tibble(name = 1:6,
A = c(rep(TRUE, 5), FALSE),
B = rep(c(FALSE, TRUE), each = 3))
print(d)
data_frame_to_list(d)
# Convert list to data.frame
a <- list(A = 1:5, B = 4:6)
print(a)
list_to_data_frame(a)
# Round-trip conversion
identical(a, data_frame_to_list(list_to_data_frame(a))) # TRUE
identical(d, list_to_data_frame(data_frame_to_list(d))) # TRUE
Run the code above in your browser using DataLab