return unique warnings

seroanalytics · Sep 17, 2024 · 3758726 · 3758726
1 parent c31ecd2
commit 3758726
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -2,12 +2,12 @@ with_warnings <- function(expr, stop_on_error = TRUE) {
   my_warnings <- NULL
 
   w_handler <- function(w) {
-    my_warnings <<- c(my_warnings, jsonlite::unbox(conditionMessage(w)))
+    my_warnings <<- unique(c(my_warnings, jsonlite::unbox(conditionMessage(w))))
     invokeRestart("muffleWarning")
   }
 
   e_handler_warn <- function(e) {
-    my_warnings <<- c(my_warnings, jsonlite::unbox(conditionMessage(e)))
+    my_warnings <<- unique(c(my_warnings, jsonlite::unbox(conditionMessage(e))))
     invokeRestart("muffleStop")
   }
 

diff --git a/inst/schema/DataSeries.schema.json b/inst/schema/DataSeries.schema.json
@@ -13,7 +13,7 @@
           "x": {
             "type": "array",
             "items": {
-              "type": ["number", "string"]
+              "type": ["number", "string", "null"]
             }
           },
           "y": {
@@ -32,7 +32,7 @@
           "x": {
             "type": "array",
             "items": {
-              "type": ["number", "string"]
+              "type": ["number", "string", "null"]
             }
           },
           "y": {
@@ -52,7 +52,7 @@
         }
       }
     },
-    "required": ["model", "raw", "warnings"],
+    "required": ["name", "model", "raw", "warnings"],
     "additionalProperties": false
   }
 }