Make latest checking more robust

ropensci · Sep 30, 2024 · 0f9c458 · 0f9c458
1 parent 9972583
commit 0f9c458
Showing 1 changed file with 12 additions and 4 deletions.
diff --git a/R/rl_taxa.R b/R/rl_taxa.R
@@ -52,8 +52,12 @@ rl_sis_latest <- function(id, key = NULL, parse = TRUE, ...) {
   assert_is(parse, "logical")
 
   tmp <- rl_sis(id, key, ...)$assessments
-  tmp_sub <- subset(tmp, tmp$latest)
-  tmp_sub <- tmp_sub[order(tmp_sub$year_published, decreasing = TRUE), ]
+  if (any(tmp$latest, na.rm = TRUE)) {
+    tmp_sub <- subset(tmp, tmp$latest)
+  }
+  tmp_sub$year_published <- as.numeric(as.character(tmp_sub$year_published))
+  ord <- order(tmp_sub$year_published, decreasing = TRUE)
+  tmp_sub <- tmp_sub[ord, , drop = FALSE]
   rl_assessment(id = tmp_sub$assessment_id[1], key = key, parse = parse, ...)
 }
 
@@ -166,8 +170,12 @@ rl_species_latest <- function(genus, species, infra = NULL,
 
   tmp <- rl_species(genus, species, infra = infra,
                     subpopulation = subpopulation, key, ...)$assessments
-  tmp_sub <- subset(tmp, tmp$latest)
-  tmp_sub <- tmp_sub[order(tmp_sub$year_published, decreasing = TRUE), ]
+  if (any(tmp$latest, na.rm = TRUE)) {
+    tmp_sub <- subset(tmp, tmp$latest)
+  }
+  tmp_sub$year_published <- as.numeric(as.character(tmp_sub$year_published))
+  ord <- order(tmp_sub$year_published, decreasing = TRUE)
+  tmp_sub <- tmp_sub[ord, , drop = FALSE]
   rl_assessment(id = tmp_sub$assessment_id[1], key = key, parse = parse, ...)
 }