Add detailed information to warning message

Author: JedGrabman

R-packages/covidcast/R/covidcast.R

@@ -499,12 +499,18 @@ covidcast_days <- function(data_source, signal, start_day, end_day, geo_type,
                     nrow(dat[[i]]$epidata)))
     if (dat[[i]]$message == "success") {
       returned_geo_values <- dat[[i]]$epidata$geo_value
-      missed_geos <- setdiff(geo_value, returned_geo_values)
+      missed_geos <- setdiff(tolower(geo_value), tolower(returned_geo_values))
       if (length(missed_geos) > 0) {
         missed_geos_str <- paste0(missed_geos, collapse = ", ")
         warn(message =
                sprintf("Data not fetched for some geographies on %s: %s",
-                       query_day, missed_geos_str)
+                       query_day, missed_geos_str),
+             data_source = data_source,
+             signal = signal,
+             day = query_day,
+             geo_value = geo_value,
+             msg = dat[[i]]$message,
+             class = "covidcast_missing_geo_values"
              )
       }
     } else {