avoid returning NA in match_weighted_cases

Author: rafapereirabr

R/match_weighted_cases.R

@@ -79,7 +79,7 @@ match_weighted_cases <- function( # nocov start
     FROM {x}
     LEFT JOIN {y}
     ON {join_condition}
-    WHERE {cols_not_null} AND {y}.numero IS NOT NULL;"
+    WHERE {cols_not_null} AND {y}.numero IS NOT NULL AND lon IS NOT NULL;"
   )
 
   DBI::dbSendQueryArrow(con, query_match)

R/match_weighted_cases_probabilistic.R

@@ -199,7 +199,7 @@ match_weighted_cases_probabilistic <- function( # nocov start
     FROM {x}
     LEFT JOIN {y}
     ON {join_condition_determ}
-    WHERE lat IS NOT NULL {cols_not_null_match};"
+    WHERE lon IS NOT NULL {cols_not_null_match};"
   )
 
   DBI::dbSendQueryArrow(con, query_match)