library(tibble)
tib <- tibble(
a = c(1, 2),
b = list(log10, sqrt),
c = c("parrot", "quest"),
.object_class = list(c("myobject", "list"), c("yourobject", "list"))
)
extract_row_to_list(tib, 2)
extract_row_to_list(tib, which(a == 1))
Run the code above in your browser using DataLab