provide error and warning class names

Author: nmdefries

R/epidatacall.R

@@ -50,20 +50,26 @@ create_epidata_call <- function(endpoint, params, meta = NULL,
   stopifnot(is.logical(only_supports_classic), length(only_supports_classic) == 1)
 
   if (length(unique(meta)) != length(meta)) {
-    cli::cli_abort(c(
-      "List of expected epidata fields contains duplicate entries",
-      "i" = "duplicates in meta can cause problems parsing fetched data",
-      "Please fix in `endpoints.R`"
-    ))
+    cli::cli_abort(
+      c(
+        "List of expected epidata fields contains duplicate entries",
+        "i" = "duplicates in meta can cause problems parsing fetched data",
+        "Please fix in `endpoints.R`"
+      ),
+      class = "epidatr__duplicate_meta_entries"
+    )
   }
 
   meta_field_names <- map_chr(meta, ~ .x$name)
   if (length(meta_field_names) != length(unique(meta_field_names))) {
-    cli::cli_abort(c(
-      "List of expected epidata fields contains duplicate names",
-      "i" = "duplicates in meta can cause problems parsing fetched data",
-      "Please fix in `endpoints.R`"
-    ))
+    cli::cli_abort(
+      c(
+        "List of expected epidata fields contains duplicate names",
+        "i" = "duplicates in meta can cause problems parsing fetched data",
+        "Please fix in `endpoints.R`"
+      ),
+      class = "epidatr__duplicate_meta_names"
+    )
   }
 
   if (is.null(meta)) {

R/model.R

@@ -152,7 +152,10 @@ parse_data_frame <- function(epidata_call, df, disable_date_parsing = FALSE) {
   if (
     length(setdiff(names(df), meta_field_names)) != 0
   ) {
-    cli::cli_warn("Not all return columns are specified as expected epidata fields")
+    cli::cli_warn(
+      "Not all return columns are specified as expected epidata fields",
+      class = "epidatr__missing_meta_fields"
+    )
   }
 
   columns <- colnames(df)