replace vec_slice() (#6297)

tidyverse · Jan 28, 2025 · 8ef9c6e · 8ef9c6e
1 parent aeaed9a
commit 8ef9c6e
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/facet-grid-.R b/R/facet-grid-.R
@@ -309,7 +309,9 @@ FacetGrid <- ggproto("FacetGrid", Facet,
         params$margins
       )
       # Apply recycling on original data to fit margins
-      data <- vec_slice(data, facet_vals$.index)
+      # We're using base subsetting here because `data` might have a superclass
+      # that isn't handled well by vctrs::vec_slice
+      data <- data[facet_vals$.index, , drop = FALSE]
       facet_vals$.index <- NULL
     }