knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
library(aureole)
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)
df <- download_search_results("Homo sapiens") knitr::kable(head(df))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.