search registered S3 method for melt generic

Rdatatable · Jan 2, 2021 · ee35980 · ee35980
1 parent 33d67c4
commit ee35980
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/fmelt.R b/R/fmelt.R
@@ -4,9 +4,9 @@
 #   redirection as well
 
 melt <- function(data, ..., na.rm = FALSE, value.name = "value") {
-  if (is.data.table(data)) {
+  if (inherits(data, sub("melt\\.", "", as.character(methods(melt))))) {
     UseMethod("melt", data)
-    # if data is not data.table and reshape2 is installed, this won't dispatch to reshape2's method;
+    # if no method is registered for data and reshape2 is installed, this won't dispatch to reshape2's method;
     # CRAN package edarf and others fail without the else branch
   # nocov start
   } else {