R/quickgetfirst.r

In HoustonUseRs/hrugrhelpr:

##
## [quickgetfirst.r]
##
## author     : Amanda Shih
## project    : hrugrhelpr
## createdate : 06.25.2016
##
## description:
##    return the first item in a vector
##
## version: 0.01
## changelog:
##


get_first <- function(vec) {
  vec[1]
}