R/topBottom.R

Defines functions topBottom

#' @export topBottom
topBottom <- function(df, row) {
  df2 <- rbind(head(df, row), tail(df, row))
  df2 <- df2[!duplicated(df2), ]
  return(df2)
}
jon-mellon/mellonMisc documentation built on July 4, 2022, 9:51 a.m.