From f75bc8427c8e58bf299b5186ed9b2fa97a6a08c5 Mon Sep 17 00:00:00 2001 From: wkmor1 Date: Tue, 2 Apr 2024 14:29:13 +0300 Subject: [PATCH] Allow extracting facts without domain prefix --- R/finbif_occurrence.R | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/R/finbif_occurrence.R b/R/finbif_occurrence.R index 9a98363f..8ae98e59 100644 --- 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]]