Include value in error message about invalid value from `register_met…

…hod()` Closes #447
RConsortium · Oct 10, 2024 · 58a11e3 · 58a11e3
1 parent 03dece2
commit 58a11e3
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/R/generic-spec.R b/R/generic-spec.R
@@ -28,7 +28,8 @@ as_S3_generic <- function(x) {
     }
   }
 
-  stop("`generic` is a function, but not an S3 generic function", call. = FALSE)
+  stop("`generic` is a function, but not an S3 generic function: ",
+       deparse1(x, width.cutoff = 100L), call. = FALSE)
 }
 
 S3_generic <- function(generic, name) {

diff --git a/tests/testthat/_snaps/generic-spec.md b/tests/testthat/_snaps/generic-spec.md
@@ -4,7 +4,7 @@
       as_generic(function() { })
     Condition
       Error:
-      ! `generic` is a function, but not an S3 generic function
+      ! `generic` is a function, but not an S3 generic function: function ()  { }
 
 ---