refatora função de comparação de arquivos para retornar resultados em formato de tabela

scripts/compara_arquivos.R

@@ -42,12 +42,11 @@ objetos_iguais <- function(atual, snapshot) {
   isTRUE(all.equal(atual, snapshot, check.attributes = FALSE))
 }
 
-relata_comparacao <- function(nome, atual, snapshot) {
-  if (objetos_iguais(atual, snapshot)) {
-    message(glue("{nome}: arquivo atual e snapshot sao iguais."))
-  } else {
-    message(glue("{nome}: arquivo atual e snapshot diferem."))
-  }
+cria_resultado_comparacao <- function(nome, atual, snapshot) {
+  tibble::tibble(
+    arquivo = nome,
+    mensagem = if (objetos_iguais(atual, snapshot)) "iguais" else "diferentes"
+  )
 }
 
 # funcao para obter linhas com mudancas de codigo em cada revisao NCM
@@ -153,8 +152,6 @@ walk2(
   valida_arquivo
 )
 
-message("Ambiente configurado e arquivos obrigatorios encontrados.")
-
 # reconstroi em memoria o objeto salvo em ncms_originais.rds
 correlacao_ncm_detalhada <- read_xlsx(path_ncm_detalhada, guess_max = 1e6)
 
@@ -170,7 +167,7 @@ names(ncms_originais_atual) <- nomes_para_funcao |>
 
 ncms_originais_snapshot <- readRDS(path_ncms_originais_snapshot)
 
-relata_comparacao(
+resultado_ncms_originais <- cria_resultado_comparacao(
   "ncms_originais.rds",
   ncms_originais_atual,
   ncms_originais_snapshot
@@ -186,7 +183,7 @@ dataset_ncm_atual <- correlacao_completa_ncm_mercosul |>
 
 dataset_ncm_snapshot <- arrow::read_parquet(path_dataset_ncm_snapshot)
 
-relata_comparacao(
+resultado_dataset_ncm <- cria_resultado_comparacao(
   "dataset_ncm.parquet",
   dataset_ncm_atual,
   dataset_ncm_snapshot
@@ -211,7 +208,7 @@ dataset_naladi_ncm_atual <- naladi_ncm_manual |>
 
 dataset_naladi_ncm_snapshot <- arrow::read_parquet(path_dataset_naladi_ncm_snapshot)
 
-relata_comparacao(
+resultado_dataset_naladi_ncm <- cria_resultado_comparacao(
   "dataset_naladi_ncm.parquet",
   dataset_naladi_ncm_atual,
   dataset_naladi_ncm_snapshot
@@ -237,7 +234,7 @@ dataset_naladi_atual <- ambiente_naladi$correlacao_completa_naladi_naladi_ncmtra
 
 dataset_naladi_snapshot <- arrow::read_parquet(path_dataset_naladi_snapshot)
 
-relata_comparacao(
+resultado_dataset_naladi <- cria_resultado_comparacao(
   "dataset_naladi.parquet",
   dataset_naladi_atual,
   dataset_naladi_snapshot
@@ -357,10 +354,19 @@ descricoes_ncm_atual <- x |>
 
 descricoes_ncm_snapshot <- arrow::read_parquet(path_descricoes_ncm_snapshot)
 
-relata_comparacao(
+resultado_descricoes_ncm <- cria_resultado_comparacao(
   "descricoes_ncm.parquet",
   descricoes_ncm_atual,
   descricoes_ncm_snapshot
 )
 
-message("Comparacao concluida.")
+# organiza as saidas finais em uma tabela unica
+tabela_comparacao <- bind_rows(
+  resultado_ncms_originais,
+  resultado_dataset_ncm,
+  resultado_dataset_naladi_ncm,
+  resultado_dataset_naladi,
+  resultado_descricoes_ncm
+)
+
+print(tabela_comparacao)