R/ht.R

In sbw78/sbwtools: My most frequently used functions

Defines functions ht

Documented in ht

#' Get first 10 and last 10 rows of a data frame
#'
#' @param d A data frame
#' @export
#' @examples
#' ht(mtcars)

ht <- function(d) {
  rbind(utils::head(d,10), utils::tail(d,10))
}