R/temperature_costs.R

In gclawson1/computingpackage: Rainfall statistics, temperature risks, and temperature costs.

#' temperature_costs
#'
#' Compute the potential yearly hospital bill costs for people who might have a heat stroke because of the maximum temperature for that day over the span of the data set.
#' @param data data frame with columns Date, MaxTemp
#' @author Gage Clawson
#' @example temperature_costs(data)
#' @return Returns a table containing,
#' \describe{
#'  \item{Year}{Each year within the dataset}
#'  \item{hospital_bill}{Sum of potential hospital bills from heat stroke ($)}
#'  }

temperature_costs <- function(data){

  climate_data <- data %>%
    dplyr::mutate(year = lubridate::year(Date),
                  month = lubridate::month(Date),
                  day = lubridate::day(Date)) %>%
    mutate(hospital_bill = case_when(MaxTemp >= 40 ~ MaxTemp*10,
                                     MaxTemp < 40 ~ 0)) %>%
    group_by(year) %>%
    summarise(total_hospital_bills = sum(hospital_bill, na.rm = TRUE)) %>%
    ungroup()

  return(list(table = climate_data))
}