put convert into local() too

Author: teunbrand

R/plot.R

@@ -276,14 +276,14 @@ S7::method(plot, class_ggplot) <- `print.ggplot2::ggplot`
 `[[<-.ggplot2::gg` <- `$<-.ggplot2::gg`
 
 #' @importFrom S7 convert
-S7::method(convert, list(from = class_ggplot, to = S7::class_list)) <-
-  function(from, to) {
-    S7::props(from)
-  }
-rm(`convert`)
-
 # S7 currently attaches the S3 method to the calling environment which gives `ggplot2:::as.list`
 # Wrap in `local()` to provide a temp environment which throws away the attachment
 local({
-  S7::method(as.list, class_ggplot) <- function(x, ...) convert(x, S7::class_list)
+  S7::method(convert, list(from = class_ggplot, to = S7::class_list)) <-
+    function(from, to) {
+      S7::props(from)
+    }
+
+  S7::method(as.list, class_ggplot) <-
+    function(x, ...) convert(x, S7::class_list)
 })