From 5d86a11a017fddd561d6e043d1945287947b2043 Mon Sep 17 00:00:00 2001
From: Neal Richardson <neal.p.richardson@gmail.com>
Date: Mon, 6 Jun 2022 15:25:10 -0400
Subject: [PATCH] MINOR: [R] Fix duckdb test for dbplyr 2.2.0 internals change

---
 r/tests/testthat/test-duckdb.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/r/tests/testthat/test-duckdb.R b/r/tests/testthat/test-duckdb.R
index 82451017a4a..088d7a4bbd7 100644
--- a/r/tests/testthat/test-duckdb.R
+++ b/r/tests/testthat/test-duckdb.R
@@ -279,7 +279,8 @@ test_that("to_duckdb passing a connection", {
   table_four <- ds %>%
     select(int, lgl, dbl) %>%
     to_duckdb(con = con_separate, auto_disconnect = FALSE)
-  table_four_name <- table_four$ops$x
+  # dbplyr 2.2.0 renames this internal attribute to lazy_query
+  table_four_name <- table_four$ops$x %||% table_four$lazy_query$x
 
   result <- DBI::dbGetQuery(
     con_separate,