packages-part-of-the-project.Rmd

# Packages Part of the Project
```{r echo = FALSE, warning=FALSE, message=FALSE, results='asis'}
library(covid19R)
library(knitr)
library(dplyr)
pkgs <- get_covid19_data_info() %>%
  pull(package_name) %>%
  unique() %>% sort() %>%
  c("covid19R", .)

pkgdat <- data.frame(Package = pkgs,
                     Description = sapply(pkgs, 
                                          packageDescription, 
                                          fields = "Description"),
                     URL = sapply(pkgs, 
                                  packageDescription, 
                                  fields = "URL")) %>%
  rowwise() %>%
  summarise(text = glue::glue("- [{Package}]({URL}) - {Description}  \n")) %>%
  pull(text)

print(pkgdat)
```