require(dplyr)
avian_common_count <- readr::read_csv("CommonBirdsAll.csv") %>%
setNames(tolower(names(.))) %>%
rename(count = tba,
abbrev = species) %>%
select(survey, abbrev, count) %>%
filter(count>0)
devtools::use_data(avian_common_count, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.