Allow extracting facts without domain prefix

luomus · Apr 2, 2024 · f75bc84 · f75bc84
1 parent 236505e
commit f75bc84
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/R/finbif_occurrence.R b/R/finbif_occurrence.R
@@ -1563,7 +1563,13 @@ extract_facts <- function(fb_occurrence_df) {
 
  fact_name <- var_names[[levels_nms, vtype]]
 
- is_fact <- lapply(fb_occurrence_df[[fact_name]], "==", fact)
+ facts_sans_domain <- lapply(
+ fb_occurrence_df[[fact_name]], remove_domain
+ )
+
+ fact_sans_domain <- remove_domain(fact)
+
+ is_fact <- lapply(facts_sans_domain, "==", fact_sans_domain)
 
  level_vls <- vls[[level]]