Improve as_slide_computation() unsupported class error message

brookslogan · brookslogan · commit 62d76aabb7eb · 2023-08-02T16:34:46.000-07:00
diff --git a/R/utils.R b/R/utils.R
@@ -293,7 +293,7 @@ as_slide_computation <- function(f, ...) {
     return(fn)
   }
 
-  Abort(sprintf("Can't convert a %s to a slide computation", class(f)),
+  Abort(sprintf("Can't convert an object of class %s to a slide computation", paste(collapse=" ", deparse(class(f)))),
             class = "epiprocess__as_slide_computation__cant_convert_catchall",
             epiprocess__f = f,
             epiprocess__f_class = class(f),

Original file line number	Diff line number	Diff line change
`@@ -293,7 +293,7 @@ as_slide_computation <- function(f, ...) {`
`293`	`293`	`return(fn)`
`294`	`294`	`}`
`295`	`295`
`296`		`- Abort(sprintf("Can't convert a %s to a slide computation", class(f)),`
	`296`	`+ Abort(sprintf("Can't convert an object of class %s to a slide computation", paste(collapse=" ", deparse(class(f)))),`
`297`	`297`	`class = "epiprocess__as_slide_computation__cant_convert_catchall",`
`298`	`298`	`epiprocess__f = f,`
`299`	`299`	`epiprocess__f_class = class(f),`