add kingdom to mo_taxonomy

2025-07-08 07:51:57 +02:00 · 2018-12-10 21:47:25 +01:00
parent 5ab7eb07bc
commit 01a6d56334
9 changed files with 12 additions and 8 deletions
--- a/R/mo_property.R
+++ b/R/mo_property.R
@ -275,7 +275,8 @@ mo_year <- function(x, ...) {
 #' @export
 mo_taxonomy <- function(x, ...) {
  x <- AMR::as.mo(x, ...)
-  base::list(subkingdom = mo_subkingdom(x),
+  base::list(kingdom = mo_kingdom(x),
+             subkingdom = mo_subkingdom(x),
             phylum = mo_phylum(x),
             class = mo_class(x),
             order = mo_order(x),