Nothing
## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----setup--------------------------------------------------------------------
library(reptiledbr)
## -----------------------------------------------------------------------------
library(reptiledbr)
## -----------------------------------------------------------------------------
# Create a list of species to search
species_list <- c(
"Lachesis muta",
"Python bivittatus",
"Crotalus atrox"
)
## -----------------------------------------------------------------------------
# Get data for these species
reptile_data <- get_reptiledb_data(species_list)
## -----------------------------------------------------------------------------
reptile_data
## -----------------------------------------------------------------------------
format_synonyms(reptile_data)
## -----------------------------------------------------------------------------
format_distribution(reptile_data)
## -----------------------------------------------------------------------------
format_higher_taxa(reptile_data)
## -----------------------------------------------------------------------------
format_subspecies(reptile_data)
## -----------------------------------------------------------------------------
format_common_names(reptile_data)
## -----------------------------------------------------------------------------
format_reproduction(reptile_data)
## -----------------------------------------------------------------------------
format_types(reptile_data)
## -----------------------------------------------------------------------------
format_diagnosis(reptile_data)
## -----------------------------------------------------------------------------
format_comments(reptile_data)
## -----------------------------------------------------------------------------
format_etymology(reptile_data)
## -----------------------------------------------------------------------------
format_references(reptile_data)
## -----------------------------------------------------------------------------
species_list <- c(
"Lachesis muta",
"Bothrops atrox insularis" # Trinomial name
)
reptile_data <- get_reptiledb_data(species_list)
## -----------------------------------------------------------------------------
species_list <- c(
"Lachesis muta",
"Lachesis sp" # Incomplete species name
)
reptile_data <- get_reptiledb_data(species_list)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.