R/meta_do_list.R

Defines functions meta_do_list

meta_do_list <- 
  function(
           metadata
           ){
    list <- by_group_as_list(metadata, "group")
    list <- lapply(list, select, sample) %>%
      lapply(unlist) %>%
      lapply(unname)
    return(list)
  }
chi-med-pro/extra documentation built on July 1, 2022, 6:21 a.m.