library(tidyverse)
sf_revdeps = devtools::revdep("sf")
sf_revdeps_dls = cranlogs::cran_downloads(packages = sf_revdeps, when = "last-month")
top_dls = sf_revdeps_dls %>%
group_by(package) %>%
summarise(Downloads = round(mean(count)), date = max(date)) %>%
arrange(desc(Downloads))
write_csv(x = top_dls, path = "extdata/top_dls.csv")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.