In pamela-cl/valrr8: Validaciones para el Reporte Regulatorio 8 de la CNSF

knitr::opts_chunk$set(echo = TRUE)

library(readxl)
library(readr)
library(purrr)
library(janitor)

map_dfr(
  .x = excel_sheets("ins/cnsf_val_dg.xlsx"),
  .f = ~ read_xlsx("ins/cnsf_val_dg.xlsx", sheet = .x) %>% 
    mutate(riesgo = str_sub(.x, -3, -1), 
           .before = 1
           ) %>% 
    clean_names()
) %>% 
  mutate(clean_campo = janitor::make_clean_names(campo)) %>% 
  write_rds("ins/cat_cnsf_dg_base")

pamela-cl/valrr8 documentation built on Sept. 25, 2022, 6:16 a.m.