docs+dep: another pass and remove fetch_df

.editorconfig

@@ -9,7 +9,7 @@ root = true
 
 # Change these settings to your own preference
 indent_style = space
-indent_size = 4
+indent_size = 2
 
 # We recommend you to keep these unchanged
 end_of_line = lf

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: epidatr
 Type: Package
 Title: Client for Delphi's Epidata API
-Version: 1.0.0
+Version: 0.5.0
 Authors@R: as.person(c(
   "Jacob Bien <[email protected]> [aut]",
   "Logan Brooks <[email protected]> [aut]",
@@ -20,15 +20,16 @@ Encoding: UTF-8
 LazyData: true
 Roxygen: list(markdown = TRUE)
 Imports:
-  httr,
-  jsonlite,
-  readr,
-  MMWRweek,
-  rlang
+    cli,
+    httr,
+    jsonlite,
+    readr,
+    MMWRweek,
+    rlang,
+    magrittr
 RoxygenNote: 7.2.3
 Suggests:
     knitr,
-    magrittr,
     rmarkdown,
     testthat
 VignetteBuilder: knitr

NAMESPACE

@@ -1,5 +1,13 @@
 # Generated by roxygen2: do not edit by hand
 
+S3method(as.data.frame,covidcast_data_signal_list)
+S3method(as.data.frame,covidcast_data_source_list)
+S3method(print,covidcast_data_signal)
+S3method(print,covidcast_data_source)
+S3method(print,covidcast_epidata)
+S3method(print,epidata_call)
+S3method(print,epidata_csv)
+export("%>%")
 export(covid_hosp_facility)
 export(covid_hosp_facility_lookup)
 export(covid_hosp_state_timeseries)
@@ -12,7 +20,6 @@ export(ecdc_ili)
 export(epirange)
 export(fetch_classic)
 export(fetch_csv)
-export(fetch_df)
 export(fetch_json)
 export(fetch_tbl)
 export(flusurv)
@@ -46,5 +53,6 @@ importFrom(httr,http_error)
 importFrom(httr,modify_url)
 importFrom(httr,stop_for_status)
 importFrom(jsonlite,fromJSON)
+importFrom(magrittr,"%>%")
 importFrom(readr,read_csv)
 importFrom(rlang,abort)

R/constants.R

@@ -1,3 +1,3 @@
 version <- "1.0.0"
-http_headers <- httr::add_headers("User-Agent" = paste0("epidatr/", version))
+http_headers <- httr::add_headers("User-Agent" = paste0("epidatr/", version), "Accept-Encoding" = "gzip")
 global_base_url <- "https://delphi.cmu.edu/epidata/"

R/covidcast.R

@@ -30,6 +30,7 @@ parse_signal <- function(signal, base_url) {
   r
 }
 
+#' @export
 print.covidcast_data_signal <- function(signal, ...) {
   print(signal$name)
   print(signal$key)
@@ -46,6 +47,8 @@ parse_source <- function(source, base_url) {
   r
 }
 
+#' @method as.data.frame covidcast_data_signal_list
+#' @export
 as.data.frame.covidcast_data_signal_list <- function(signals, ...) {
   as.data.frame(do.call(rbind, lapply(signals, function(x) {
     sub <- x[c(
@@ -74,6 +77,7 @@ as.data.frame.covidcast_data_signal_list <- function(signals, ...) {
   }), ...)
 }
 
+#' @export
 print.covidcast_data_source <- function(source, ...) {
   print(source$name, ...)
   print(source$source, ...)
@@ -127,6 +131,8 @@ covidcast_epidata <- function(base_url = global_base_url) {
   )
 }
 
+#' @method as.data.frame covidcast_data_source_list
+#' @export
 as.data.frame.covidcast_data_source_list <- function(sources, ...) {
   as.data.frame(do.call(rbind, lapply(sources, function(x) {
     sub <- x[c(
@@ -141,6 +147,7 @@ as.data.frame.covidcast_data_source_list <- function(sources, ...) {
   }), ...)
 }
 
+#' @export
 print.covidcast_epidata <- function(epidata, ...) {
   print("COVIDcast Epidata Fetcher")
   print("Sources:")