require(tidyverse) require(deistools) con <- pgr::PgCon$new("mdb1252") df <- con$import("mortalidad.i01_v24") df_m <- df %>% mutate(provres = myutilities::zerofill(provres, 2)) provincias <- df_m %>% filter(provres <= 94) %>% pull(provres) %>% unique check <- checkCie10$new(df, edad, uniedad, codmuer, sexo, ocloc, provres, ano)
report <- map(2001:2016, ~ checkCie10$new(df_m %>% filter(ano == .x), edad, uniedad, codmuer, sexo, ocloc, provres, ano)$report_useless()) %>% set_names(2001:2016) report_2016 <- map(provincias, ~ checkCie10$new(df_m %>% filter(ano == 2016, provres == .x), edad, uniedad, codmuer, sexo, ocloc, provres, ano)$report_useless()) %>% set_names(provincias) report_2011 <- map(provincias, ~ checkCie10$new(df_m %>% filter(ano == 2011, provres == .x), edad, uniedad, codmuer, sexo, ocloc, provres, ano)$report_useless()) %>% set_names(provincias) report_2006 <- map(provincias, ~ checkCie10$new(df_m %>% filter(ano == 2006, provres == .x), edad, uniedad, codmuer, sexo, ocloc, provres, ano)$report_useless()) %>% set_names(provincias) saveRDS(list(poraƱo = report, xprov_2016 = report_2016, xprov_2011 = report_2011, xprov_2006 = report_2006), "reportes.rds")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.