knitr::opts_chunk$set(echo = TRUE)
librarian::shelf( dplyr, noaa-iea/ecoidx, here, readr) tst_csv <- here("./inst/test2021/Groundfish Diversity 2003- 2019 IEA FY2021.csv") d <- read_csv(tst_csv) table(d$timeseries) d %>% filter( timeseries == unique(d$timeseries)[1]) %>% ecoidx::plot_ts(add_icons = F) %>% plotly::ggplotly()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.