In pachevalier/tidycge:

library(tidycge)
library(dplyr)
library(purrr)
library(readr)
library(readxl)
library(stringr)
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

clean_ncc_sheet(path = "../data-raw/NCC-V2-0-20171220-V1[1].xlsx", sheet = "Classe 10") %>%
  glimpse()

table_ncc <- excel_sheets(path = "../data-raw/NCC-V2-0-20171220-V1[1].xlsx") %>%
  keep(
  .p = function(x) str_detect(pattern = "Classe[[:blank:]][[:digit:]]{2}", string = x)
  ) %>%
  map_df(
    .f = function(x) clean_ncc_sheet(path = "../data-raw/NCC-V2-0-20171220-V1[1].xlsx", sheet = x) 
    ) 

table_ncc %>%
  write_csv(path = "../data-raw/tidy_ncc.csv")

pachevalier/tidycge documentation built on May 24, 2019, 9:43 p.m.