fix error when wrap with I()

Yunuuuu · Dec 14, 2024 · ec82ced · ec82ced
1 parent 3e505b5
commit ec82ced
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/align-link.R b/R/align-link.R
@@ -330,7 +330,7 @@ AlignLinkProto <- ggproto("AlignLinkProto", AlignGg,
             params[[self$arg]] <- lapply(x, function(link) {
                 if (inherits(link, "AsIs")) { # cannot use character
                     ans <- vec_as_location(
-                        link,
+                        unclass(link),
                         n = nobs,
                         missing = "error",
                         arg = self$arg,
@@ -339,7 +339,7 @@ AlignLinkProto <- ggproto("AlignLinkProto", AlignGg,
                     ans <- I(ans)
                 } else {
                     ans <- vec_as_location(
-                        unclass(link),
+                        link,
                         n = nobs,
                         names = self$labels,
                         missing = "error",