atualiza leitura de dados para xlsx

scripts/gera_correlacoes.R

@@ -14,7 +14,7 @@ path_ncm <- file.path(
   "correlacoes",
   "mercosul",
   "output",
-  "correlacao_completa_ncm.Rda"
+  "correlacao_completa_ncm.xlsx"
 )
 
 path_ncm_detalhada <- file.path(
@@ -105,7 +105,7 @@ saveRDS(ncms_originais, "dados_gerados/ncms_originais.rds")
 # Organiza dados da correlação NCM ----------------------------------------
 
 
-load(path_ncm)
+correlacao_completa <- readxl::read_xlsx(path_ncm)
 
 correlacao_completa <- correlacao_completa_ncm_mercosul |> 
   distinct() |>