Error when more than one exact match is present

antaldaniel · antaldaniel · commit efc7d3a9ee5e · 2025-04-03T13:22:45.000+02:00
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: wbdataset
 Title: Making Datasets Truly Interoperable and Reusable in R with Wikibase
-Version: 0.1.1039
+Version: 0.1.1040
 Date: 2024-04-03
 Authors@R: 
     c(person(given="Daniel", family="Antal", 
diff --git a/R/check_existing_item.R b/R/check_existing_item.R
@@ -87,7 +87,7 @@ check_existing_item <- function(search_term,
     logical(1)
   )
 
-  if (sum(exact_match)>0) {
+  if (sum(exact_match)>1) {
     stop("Multiple items [", paste(matching_items, collapse=", "),  "] are matching '", search_term, "' in language='", language, "'." )
   }
 
diff --git a/R/check_existing_property.R b/R/check_existing_property.R
@@ -87,7 +87,7 @@ check_existing_property <- function(
     logical(1)
   )
 
-  if (sum(exact_match)>0) {
+  if (sum(exact_match)>1) {
     stop("Multiple items [", paste(matching_props, collapse=", "),  "] are matching '", search_term, "' in language='", language, "'." )
   }
 

Original file line number	Diff line number	Diff line change
`@@ -87,7 +87,7 @@ check_existing_item <- function(search_term,`
`87`	`87`	`logical(1)`
`88`	`88`	`)`
`89`	`89`
`90`		`- if (sum(exact_match)>0) {`
	`90`	`+ if (sum(exact_match)>1) {`
`91`	`91`	`stop("Multiple items [", paste(matching_items, collapse=", "), "] are matching '", search_term, "' in language='", language, "'." )`
`92`	`92`	`}`
`93`	`93`
Original file line number	Diff line number	Diff line change
`@@ -87,7 +87,7 @@ check_existing_property <- function(`
`87`	`87`	`logical(1)`
`88`	`88`	`)`
`89`	`89`
`90`		`- if (sum(exact_match)>0) {`
	`90`	`+ if (sum(exact_match)>1) {`
`91`	`91`	`stop("Multiple items [", paste(matching_props, collapse=", "), "] are matching '", search_term, "' in language='", language, "'." )`
`92`	`92`	`}`
`93`	`93`