R/utils-mm.R

In uvic-cisur/intermahpr: The International Model of Alcohol Harms and Policies

## intermahpr - R package backend for the intermahp shiny app
## Copyright (C) 2018 Canadian Institute for Substance Use Research

#### Morbidity and Mortality  Specific Data Carpentry --------------------------

#' Prepare Morb/Mort Data
#'
#' @export
prepareMM <- function(.data) {
  message("Preparing morbidity and mortality input... ", appendLF = FALSE)

  .data %<>%
    clean(getExpectedVars("mm")) %>%
    collapseDeprecated()

  message("Done")

  .data
}


#' Collapse deprecated IM designations
#'
#'
collapseDeprecated <- function(.data) {
  .data %>%
    mutate(im = substring(text = im, first = 1, last = 7)) %>%
    group_by(region, year, gender, age_group, im, outcome) %>%
    summarise(count = sum(count)) %>%
    ungroup()
}