atualiza mensagens de validação para refletir divergências nos NCMs entre datasets

scripts/validacao.R

@@ -480,8 +480,8 @@ faltantes_snapshot_tec <- ultima_revisao_snapshot |>
   pull(ncm)
 
 if (length(faltantes_snapshot_tec) > 0) {
+  
   sinaliza_validacao(
-    "Análise apenas para fins de controle.",
     "A TEC vigente nao cobre %s NCM(s) presentes no snapshot de %s. Amostra: %s",
     length(faltantes_snapshot_tec),
     nome_ultima_revisao,
@@ -597,9 +597,9 @@ saidas_so_revisao_atual <- setdiff(
 if (
   length(saidas_so_dataset_atual) > 0 || length(saidas_so_revisao_atual) > 0
 ) {
+  
   sinaliza_validacao(
     paste(
-      "Análise apenas para fins de controle. É normal ter alguma divergência.",
       "As saidas de codigos divergem entre o dataset correlacao ncm e a correlacao ncm detalhada",
       "de %s.",
       "Saídas presentes em correlacao ncm completa e ausentes em ncm completa detalhada: %s codigo(s). Amostra: %s.",