Commit 12762f77 authored by Eric Coissac's avatar Eric Coissac

Make taxon_at_rank.robitaxid public

parent f5e1e18b
......@@ -17,7 +17,8 @@ Imports: R6,
ore,
Rdpack,
rlang,
ggplot2
ggplot2,
xlsx
RdMacros: Rdpack
Suggests: vegan,
roxygen2,
......
......@@ -124,6 +124,7 @@ S3method(taxids_colname,tbl)
S3method(taxon_at_rank,numeric)
S3method(taxon_at_rank,robimetabar)
S3method(taxon_at_rank,robimotu)
S3method(taxon_at_rank,robitaxid)
S3method(taxon_at_rank,tbl)
S3method(taxonomic_parent,numeric)
S3method(taxonomic_parent,robimetabar)
......
......@@ -482,6 +482,8 @@ is_subcladeof.robimetabar <- function(data, taxonomy,parent,results_in,slot) {
eval(fcall)
}
#' @rdname taxon_at_rank
#' @export
taxon_at_rank.robitaxid = function(data,taxonomy,rank,with_name=FALSE, results_in) {
reference <- reference_taxonomy(taxonomy)
......
......@@ -2,11 +2,14 @@
% Please edit documentation in R/taxonomy_methods.R, R/taxonomy_robi.R
\name{taxon_at_rank}
\alias{taxon_at_rank}
\alias{taxon_at_rank.robitaxid}
\alias{taxon_at_rank.numeric}
\title{Extracts the taxid at a specified taxonomic rank.}
\usage{
taxon_at_rank(data, taxonomy, rank, with_name = FALSE, results_in, ...)
\method{taxon_at_rank}{robitaxid}(data, taxonomy, rank, with_name = FALSE, results_in)
\method{taxon_at_rank}{numeric}(data, taxonomy, rank, with_name = FALSE, results_in)
}
\arguments{
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment