apply suggestion

Co-authored-by: Teun van den Brand <[email protected]>

Author: Yunuuuu

R/guides-.R

@@ -515,8 +515,7 @@ Guides <- ggproto(
     # we grouped the legends by the positions, for inside legends, they'll be
     # splitted by the actual inside coordinate
     groups <- positions
-    for (i in seq_along(positions)) {
-      if (identical(positions[i], "inside")) {
+    for (i in seq_along(positions)[positions == "inside"]) {
         # the actual inside position and justification can be set in each guide
         # by `theme` argument, here, we won't use `calc_element()` which will
         # use inherits from `legend.justification` or `legend.position`, we only