diff --git a/r/tests/testthat/test-dplyr-query.R b/r/tests/testthat/test-dplyr-query.R
index a91c0b6ccb5..469bcd10aa6 100644
--- a/r/tests/testthat/test-dplyr-query.R
+++ b/r/tests/testthat/test-dplyr-query.R
@@ -742,6 +742,7 @@ test_that("Can use nested field refs", {
   )
 
   # Now with Dataset: make sure column pushdown in ScanNode works
+  skip_if_not_available("dataset")
   expect_equal(
     nested_data %>%
       InMemoryDataset$create() %>%