as_of can't handle Date-type input

[dshemetov]

r$> forecast_due_date = as.Date("2021-10-19")

r$> epidatr::pub_covidcast(
          "hhs",
          "confirmed_admissions_influenza_1d",
          "state",
          "day",
          "*",
          epirange(forecast_due_date - 20L, forecast_due_date),
          as_of = forecast_due_date
        )
Error in charToDate(x) : 
  character string is not in a standard unambiguous format

r$> epidatr::pub_covidcast(
          "hhs",
          "confirmed_admissions_influenza_1d",
          "state",
          "day",
          "*",
          epirange(forecast_due_date - 20L, forecast_due_date),
          as_of = "2021-10-19"
        )
# A tibble: 1,080 × 15
...

[dsweber2]

pretty sure this is a dupe of #192, he mentions length 1 vectors as well

[dshemetov]

Seems right, but let's keep this open so we make sure we address the example above with whatever fix we implement

[nmdefries]

Closed by #224