feat(afhsb): remove afhsb from Epidata R client

Author: dshemetov

src/client/delphi_epidata.R

@@ -371,39 +371,6 @@ Epidata <- (function() {
     return(.request(params))
   }
 
-  # Fetch AFHSB data (point data, no min/max)
-  afhsb <- function(auth, locations, epiweeks, flu_types) {
-    # Check parameters
-    if(missing(auth) || missing(locations) || missing(epiweeks) || missing(flu_types)) {
-      stop('`auth`, `locations`, `epiweeks` and `flu_types` are all required')
-    }
-    # Set up request
-    params <- list(
-        endpoint = 'afhsb',
-        auth = auth,
-        locations = .list(locations),
-        epiweeks = .list(epiweeks),
-        flu_types = .list(flu_types)
-    )
-    # Make the API call
-    return(.request(params))
-  }
-
-  # Fetch AFHSB metadata
-  meta_afhsb <- function(auth) {
-    # Check parameters
-    if(missing(auth)) {
-      stop('`auth` is required')
-    }
-    # Set up request
-    params <- list(
-      endpoint = 'meta_afhsb',
-      auth = auth
-    )
-    # Make the API call
-    return(.request(params))
-  }
-
   # Fetch NIDSS flu data
   nidss.flu <- function(regions, epiweeks, issues, lag) {
     # Check parameters
@@ -662,8 +629,6 @@ Epidata <- (function() {
     quidel = quidel,
     norostat = norostat,
     meta_norostat = meta_norostat,
-    afhsb = afhsb,
-    meta_afhsb = meta_afhsb,
     nidss.flu = nidss.flu,
     nidss.dengue = nidss.dengue,
     delphi = delphi,