R/datatrans.R

In DanielRoodzantHU/drporthelp: Help package for my online portfolio

#' Transform data
#'
#' Transform data in flu_data and dengue_data to make them joinable in my online portfolio page, chapter: relational databases
#'
#' @param data The file you want to transform the data of
#'
#' @return Tibble with altered data
#' @export
#'
datatrans <- function(data){
    dplyr::mutate(data,
                  year = stringr::str_sub(year, end = 4)) %>%
    dplyr::group_by(country, year) %>%
    dplyr::summarize(searches = round(sum(searches, na.rm = FALSE), 2))
              }