update gera_correlacoes

scripts/gera_correlacoes.R

@@ -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")