update gera_correlacoes

scripts/gera_correlacoes.R

@@ -67,7 +67,7 @@ path_descricoes <- file.path(
 
 # Obter códigos que mudaram nas revisões ----------------------------------
 
-correlacao_ncm_detalhada <- read_xlsx(path_ncm_detalhada, guess_max = 1e6)
+correlacao_ncm_detalhada <- read_xlsx(path_ncm_detalhada, guess_max = 1e6) 
 
 # funcao para obter linhas com mudancas de codigo em cada revisao NCM
 filtra_mudancas <- function(x, padrao) {
@@ -105,11 +105,12 @@ saveRDS(ncms_originais, "dados_gerados/ncms_originais.rds")
 # Organiza dados da correlação NCM ----------------------------------------
 
 
-correlacao_completa <- readxl::read_xlsx(path_ncm)
+correlacao_completa_ncm_mercosul <- readxl::read_xlsx(path_ncm)
 
 correlacao_completa <- correlacao_completa_ncm_mercosul |> 
   distinct() |> 
-  rename_with(~str_to_upper(.x))
+  rename_with(~str_to_upper(.x)) |> 
+  tidyr::drop_na()
 
 write_parquet(correlacao_completa, "dados_gerados/dataset_ncm.parquet")