strr_ghost error checking

UPGo-McGill · Jun 8, 2024 · f12b709 · f12b709
1 parent 275dd73
commit f12b709
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/strr_ghost.R b/R/strr_ghost.R
@@ -235,7 +235,8 @@ strr_ghost <- function(
                             scraped = {{scraped}})
 
   # Check for multiple property_IDs
-  if (nrow(dplyr::filter(dplyr::n() > 1, .by = property_ID)) > 0) stop(
+  if (nrow(dplyr::filter(
+    property, dplyr::n() > 1, .by = property_ID)) > 0) stop(
     "Multiple rows detected for a single property_ID", call. = FALSE)
 
   # Check for multiple host_IDs for one property_ID