## code to prepare `inatQC` dataset goes here
# read from elsewhere, perhaps later best to get from API directly
inatQC <- readr::read_csv("../../BDQC-shiny-inat-time-series/iNatQC/iNatQC.csv")
library(tidyverse)
glimpse(inatQC)
inatQC <- inatQC %>%
select(-X1)
usethis::use_data(inatQC, overwrite = TRUE)
# add regions -------------------------------------------------------------
data_with_region <- tableauchangementstemporels::get_data()
usethis::use_data(data_with_region, overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.