R/get_top20.R

In SP2000: Catalogue of Life Toolkit

#' @title Download the top20 species for Catalogue of Life China checklist
#' @description Download the most visited top20 species from \url{http://sp2000.org.cn}for more details.
#' @rdname  get_top20
#' @name get_top20
#' @return top20 species
#' @author Liuyong Ding
#' @details Visit the website \url{http://sp2000.org.cn} for more details.
#' @importFrom jsonlite fromJSON
#' @importFrom tibble tibble
#' @examples
#' \dontrun{
#' get_top20()
#' }
#' @export

get_top20 <- function() {
  cat(sprintf("last Update: %s",Sys.Date()),sep = "\n")
  url <- 'http://sp2000.org.cn/record/speciesView/top20?_=1580870992724'
  top20 <- jsonlite::fromJSON(url)
  top20$url <- gsub("species/show_species_details/", "", top20$url)
  top20$target <- gsub("_top","top20",top20$target)
  names(top20) <- c("species","taxonIDs","rank")
  top20$date <- as.Date(Sys.time())
  return(tibble(top20))
}