library(tidyverse)
load(file = 'inst/metadata.rdata')
toadd <- metadata[metadata$FinalID %in% 'Peltodytes simplex', ] %>%
mutate(LifeStageCode = 'L')
metadata <- metadata %>%
bind_rows(toadd) %>%
arrange(FinalID)
save(metadata, file = 'inst/metadata.RData')
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.