R/helpers.R

Defines functions move_first nested_to_list

#' @export
move_first <- function(d,name){
  d[c(name, names(d)[!names(d) %in% name])]
}

#' @export
nested_to_list <- function(d){
  d <- d %>% arrange_(.dots=names(d)[1])
  l <- d[[2]]
  names(l) <- d[[1]]
  l
}
jpmarindiaz/mop documentation built on July 17, 2019, 3:23 p.m.