R/parsedates.R

In brittanymaldonado/maldonadopackage: Analyze monitoring data

#' Creating a year and month column from dates for easy grouping and visualization
#'
#' @param data data.frame to use
#' @return same data.frame but now with a column that just has Year for each entry
#' @importFrom lubridate mdy
#' @importFrom assertthat assert_that
#' @importFrom dplyr select
#' @importFrom dplyr mutate
#' @export
#'

parse_dates <- function(data){
  assert_that(is.data.frame(data))
  data$DATE <- mdy(data$Date)
  data_yr <- data
  mutated <- mutate(data_yr, Year = year(DATE))
  data_yr_mo <- mutate(mutated, Month = month(DATE))
  sel <- select(data_yr_mo, -Date)
  return(sel)
}