R/ranker.R

In ropenscilabs/spplist: Get Species Lists from Many Data Sources

#' Clean a species list
#'
#' @export
#' @param x input
#' @param by (character) By something, only option now: "species"
#' @examples \dontrun{
#' (res <- occ_list_gbif(country = 'US', limit = 20))
#' ranker(res, "species")
#' }
ranker <- function(x, by = "species") {
  switch(by, 
    species = x[vapply(x, splitlen, 1) != 1]
  )
}

splitlen <- function(x) {
  length(strsplit(x, "\\s")[[1]])
}