R/sort.mitml.list.R

Defines functions sort.mitml.list

Documented in sort.mitml.list

sort.mitml.list <- function(x, decreasing = FALSE, by, ...){
# sort list of multiply imputed data sets

  expr <- substitute(by)
  args0 <- list(decreasing = decreasing, ...)

  res <- lapply(x, function(i){
    args <- eval(expr, i, parent.frame())
    if(!is.list(args)) args <- list(args)
    ind <- do.call("order", c(args, args0))
    i[ind,]
  })

  as.mitml.list(res)
  
}

Try the mitml package in your browser

Any scripts or data that you put into this service are public.

mitml documentation built on Jan. 6, 2023, 5:17 p.m.