refactor: remove unused attributes

Author: Yunuuuu

R/alignpatch-free-align.R

@@ -148,8 +148,9 @@ free_align.ggalign_free_align <- function(plot, axes = "tlbr") {
 #' @importFrom ggplot2 ggproto ggproto_parent
 #' @export
 patch.ggalign_free_align <- function(x) {
-    Parent <- NextMethod()
     axes <- setup_position(attr(x, "ggalign_free_axes", exact = TRUE))
+    attr(x, "ggalign_free_axes") <- NULL
+    Parent <- NextMethod()
     ggproto(
         "PatchFreeAlign", Parent,
         border_sizes = function(self, gt) {

R/alignpatch-free-border.R

@@ -56,8 +56,9 @@ free_border.ggalign_free_border <- function(plot, borders = "tlbr") {
 #' @importFrom gtable is.gtable
 #' @export
 patch.ggalign_free_border <- function(x) {
-    Parent <- NextMethod()
     borders <- setup_position(attr(x, "ggalign_free_borders", exact = TRUE))
+    attr(x, "ggalign_free_borders") <- NULL
+    Parent <- NextMethod()
     ggproto(
         "PatchFreeBorder", Parent,
         align_border = function(self, gt, t, l, b, r) {

R/alignpatch-free-guide.R

@@ -35,10 +35,11 @@ free_guide.ggalign_free_guide <- function(plot, guides = "tlbr") {
 #' @importFrom ggplot2 ggproto ggproto_parent
 #' @export
 patch.ggalign_free_guide <- function(x) {
-    Parent <- NextMethod()
     if (!is.null(guides <- attr(x, "ggalign_free_guides", exact = TRUE))) {
         guides <- setup_guides(guides)
+        attr(x, "ggalign_free_guides") <- NULL
     }
+    Parent <- NextMethod()
     ggproto("PatchFreeGuide", Parent,
         setup = function(self, options) {
             ggproto_parent(Parent, self)$setup(options)

R/alignpatch-free-lab.R

@@ -47,8 +47,9 @@ free_lab.ggalign_free_lab <- function(plot, labs = "tlbr") {
 #' @importFrom ggplot2 ggproto ggproto_parent
 #' @export
 patch.ggalign_free_lab <- function(x) {
-    Parent <- NextMethod()
     labs <- setup_position(attr(x, "ggalign_free_labs", exact = TRUE))
+    attr(x, "ggalign_free_labs") <- NULL
+    Parent <- NextMethod()
 
     ggproto(
         "PatchFreeLab", Parent,

R/alignpatch-free-space.R

@@ -41,8 +41,9 @@ free_space.ggalign_free_space <- function(plot, spaces = "tlbr") {
 #' @importFrom grid unit
 #' @export
 patch.ggalign_free_space <- function(x) {
-    Parent <- NextMethod()
     spaces <- setup_position(attr(x, "ggalign_free_spaces", exact = TRUE))
+    attr(x, "ggalign_free_spaces") <- NULL
+    Parent <- NextMethod()
     ggproto(
         "PatchFreeSpace", Parent,
         border_sizes = function(self, gt) {