From f12b709bd84bebbe3c28e8636d3408d1a0a94d2f Mon Sep 17 00:00:00 2001
From: dwachsmuth <david.wachsmuth@mcgill.ca>
Date: Sat, 8 Jun 2024 14:59:25 -0400
Subject: [PATCH] strr_ghost error checking

---
 R/strr_ghost.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/R/strr_ghost.R b/R/strr_ghost.R
index 186aeb0..65fa074 100644
--- 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