ordena por contagem_cnefe e desvio_metros antes de resolver empates

Author: dhersz

R/geocode.R

@@ -308,5 +308,5 @@ geocode <- function(enderecos,
     return(output_sf)
   }
 
-  return(output_df)
+  return(output_df[])
 }

R/trata_empates_geocode.R

@@ -188,14 +188,10 @@ trata_empates_geocode <- function(output_df = parent.frame()$output_df,
   # drop geocodebr dist columns
   output_df2[, dist_geocodebr := NULL]
 
-  return(output_df2)
+  return(output_df2[])
 } # nocov end
 
 
-
-
-
-
 # calculate distances between pairs of coodinates
 dt_haversine <- function(lat_from, lon_from, lat_to, lon_to, r = 6378137){ # nocov start
   radians <- pi/180

R/utils.R

@@ -170,18 +170,17 @@ merge_results <- function(con,
     "SELECT {select_clause}
       FROM {x}
       LEFT JOIN (
-    SELECT * FROM {y}
-      ORDER BY tempidgeocodebr ) AS sorted_output
+        SELECT * FROM {y}
+        ORDER BY tempidgeocodebr, contagem_cnefe DESC, desvio_metros
+      ) AS sorted_output
       ON {join_condition};"
-    )
+  )
 
   # Execute the query and fetch the merged data
   merged_data <- DBI::dbGetQuery(con, query)
 
   return(merged_data)
-  }
-
-
+}
 
 
 #' create index