In USEPA/RAQSAPI: A Simple Interface to the US EPA Air Quality System Data Mart API

```{R, setup, include=FALSE} knitr::opts_chunk$set(comment = '##', echo=FALSE) library(knitr) library(magrittr) library(dplyr) library(tibble) library(stringr) library(glue) library(pander) library(DT) library(purrr) panderOptions('knitr.auto.asis', FALSE)

# README for RAQSAPI
[README for RAQSAPI](./README.md)<br>

# Full RAQSAPI Vignette
[RAQSAPI vignette](./vignettes/RAQSAPIvignette.md)<br>

## RAQSAPI package reference manuals
```r

source("./vignettes/RAQSAPI_exported_functions.R")
RAQSAPIfunctions <- RAQSAPI_functions()
cat("RAQSAPI manual pages \n \n ")
functions <- RAQSAPIfunctions[[1]] %>% mutate(link=paste0("[", .$functionnames, "](", .$relPATH, ")")) %>% 
  select(functionfamily, link) %>% 
  split(f=.$functionfamily, drop=TRUE) %>% 
  purrr::modify_depth(.depth = -2., .f=select, link) 
functions %>%
  pander()

#RAQSAPIfunctions[[2]] %>% pander()
# for (group in seq_along(RAQSAPIfunctions[[2]]))
# {
#     browser()
     # fnname <- RAQSAPIfunctions[[2]][[group]]$functionnames
     # relPATH <- RAQSAPIfunctions[[2]][[group]]$relPATH
     #cat(paste0("[", fnname, "](", relPATH, ")"))
    # data.frame(link=paste0("(", fnname, ")[", relPATH, "]")) %>%
    #glue("({fnname})[{relPATH}]")
    #ttest <- glue("({fnname})[{relPATH}]") %>%
    #  enframe() %>%
    #  force()
    #tibble(link=glue("[{fnname}]({relPATH})")) %>%
    # RAQSAPIfunctions[[2]][[group]] %>%
    #    transmute(link=str_c("[", .$functionnames, "](", .$relPATH, ")" )) %>%
    #  knitr::kable(format="html")
    #ttest %>%
      # pander()
    cat("\n \n")
#}