R/utils.R

In jemus42/gdqdonations: Get data from the 'GDQ' donation tracker

Defines functions latest_event

Documented in latest_event

#' Get the latest event
#'
#' @return `character(1)`
#' @export
#'
#' @examples
#' latest_event()
latest_event <- function() {
  gdqdonations::event_index$event[
    gdqdonations::event_index$start == max(gdqdonations::event_index$start)
  ]
}