R/util.R

Defines functions interleave

interleave <- function(set1, set2) {

  if (is.vector(set1)) {
    return(c(set1, set2)[order(c(1:length(set1), 1:length(set2)))])
  }

  if (is.data.frame(set1))
    return(bind_rows(set1, set2)[order(c(1:nrow(set1), 1:nrow(set2))), ])
}
nufflytics/nufflytics documentation built on Oct. 10, 2020, 5:27 p.m.