aw_anomaly_report appears to drop the last date in date_range

[gilliganondata]

Example code:

df <- aw_anomaly_report(company_id = company_id, 
                        rsid = rsid, 
                        date_range = c(as.Date("2021-06-15"), as.Date("2021-06-18")),
                                       metrics = "event1") 

The data returned is only for 2021-06-15 through 2021-06-17. The last date in the date range is missing:

# A tibble: 3 x 7
  day        metric  data dataExpected dataUpperBound dataLowerBound dataAnomalyDetected
  <date>     <chr>  <dbl>        <dbl>          <dbl>          <dbl> <lgl>              
1 2021-06-15 event1 10974       11560.         13753.          9366. FALSE              
2 2021-06-16 event1 10347       10911.         13082.          8740. FALSE              
3 2021-06-17 event1  9867       10355.         12505.          8206. FALSE