## 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()
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.