From f7b9dac68eba3003fb3a1f470697e3a786488390 Mon Sep 17 00:00:00 2001
From: Teun van den Brand <tahvdbrand@gmail.com>
Date: Wed, 22 Jan 2025 16:07:29 +0100
Subject: [PATCH] replace `vec_slice()`

---
 R/facet-grid-.R | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/R/facet-grid-.R b/R/facet-grid-.R
index 784e394885..dd552cf21e 100644
--- 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
     }