knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

Use

library(aureole)

Get URLs for species images

df <- download_image_urls_from_name("Homo sapiens")
knitr::kable(head(df))

Download the first image:

destfile <- tempfile(fileext = paste0(".", tools::file_ext(df$url[1])))
download.file(url = df$url[1], destfile = destfile, quiet = TRUE)
knitr::include_graphics(destfile)

Search for the IDs of a species

df <- download_search_results("Homo sapiens")
knitr::kable(head(df))


richelbilderbeek/aureole documentation built on March 4, 2020, 10:47 p.m.