usa nrow em vez de length

scripts/gera_correlacoes.R

@@ -134,7 +134,7 @@ naladi_ncm_auto <- correlacao_completa |>
   select(contains(ano_max)) |> 
   distinct()
 
-if(length(naladi_ncm_manual) >= length(naladi_ncm_auto)) {
+if(nrow(naladi_ncm_manual) >= nrow(naladi_ncm_auto)) {
   naladi_ncm <- naladi_ncm_manual
 } else {
   naladi_ncm <- naladi_ncm_auto