R/firstColumn.R

In lefec/lfemisc: What the Package Does (One Line, Title Case)

#' Inital Function
#'
#' @param .data DataFrame or Tibble
firstColumn = function(.data){
  stopifnot(is.data.frame(.data))

  if(ncol(.data) == 0)
    stop("Could not select the first column of a dataframe with 0 columns")

  .data[,1, drop = F]
}