fix getSetWithIDs and getSetWithoutIds

waldronlab · Jan 17, 2024 · b20514b · b20514b
1 parent ebf6a6a
commit b20514b
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/R/taxPPro.R b/R/taxPPro.R
@@ -271,6 +271,9 @@ getSetWithIDs <- function(tbl) {
                 Attribute_value = mean(cbind(.data$Attribute_value_min, .data$Attribute_value_max))
             ) |>
             # dplyr::mutate(Attribute_value = mean(Attribute_value)) |>
+            dplyr::slice_max(
+                .data$Confidence_in_curation, n = 1, with_ties = FALSE
+            ) |>
             dplyr::ungroup() |>
             dplyr::select(-Attribute_value_min, -Attribute_value_max) |>
             dplyr::distinct() |>
@@ -355,6 +358,9 @@ getSetWithoutIDs <- function(tbl, set_with_ids = NULL) {
                 Attribute_value = mean(cbind(.data$Attribute_value_min, .data$Attribute_value_max))
             ) |>
             # dplyr::mutate(Attribute_value = mean(Attribute_value)) |>
+            dplyr::slice_max(
+                .data$Confidence_in_curation, n = 1, with_ties = FALSE
+            ) |>
             dplyr::ungroup() |>
             dplyr::select(-Attribute_value_min, -Attribute_value_max) |>
             dplyr::distinct() |>