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

## ----setup, include = FALSE---------------------------------------------------
library(datamuseum)

## ----Sinensis -> Vulgaris, eval = FALSE---------------------------------------
# museum_clean <- museum_clean %>%
#   mutate(SciName = case_when(
#     SciName == "Octopus vulgaris"        ~ "Octopus sinensis",
#     TRUE                                 ~ SciName
#   ))