R/keep_first.R

In antoine-sachet/customFunctions: Helper functions for various common tasks

Defines functions keep_first.default keep_first.list keep_first.data.frame keep_first

Documented in keep_first keep_first.data.frame keep_first.default keep_first.list

#' Keep first value
#'
#' Useful when piping. Can be used in `summarise`.
#'
#' @export
keep_first <- function(x) {
  UseMethod("keep_first")
}

#' @describeIn keep_first Method for data.frame (keeps first row)
keep_first.data.frame <- function(df) {
  df[1,]
}

#' @describeIn keep_first Method for list
keep_first.list <- function(df) {
  df[[1]]
}


#' @describeIn keep_first Default method
keep_first.default <- function(df) {
  df[1]
}