diff --git a/r/R/convert-array.R b/r/R/convert-array.R
index 6af82f592..ba9f3a514 100644
--- a/r/R/convert-array.R
+++ b/r/R/convert-array.R
@@ -157,6 +157,8 @@ convert_array.nanoarrow_vctr <- function(array, to, ...) {
 
 #' @export
 convert_array.vctrs_partial_frame <- function(array, to, ...) {
+  # The vctrs::partial_frame() is scheduled for removal in future vctrs
+  # https://github.com/apache/arrow-nanoarrow/issues/825
   ptype <- infer_nanoarrow_ptype(array)
   if (!is.data.frame(ptype)) {
     stop_cant_convert_array(array, to)
diff --git a/r/tests/testthat/test-convert-array.R b/r/tests/testthat/test-convert-array.R
index 0357425e3..973fc8612 100644
--- a/r/tests/testthat/test-convert-array.R
+++ b/r/tests/testthat/test-convert-array.R
@@ -79,18 +79,6 @@ test_that("convert to vector works for data.frame", {
   )
 })
 
-test_that("convert to vector works for partial_frame", {
-  skip_if_not_installed("vctrs")
-
-  array <- as_nanoarrow_array(
-    data.frame(a = 1L, b = "two", stringsAsFactors = FALSE)
-  )
-  expect_identical(
-    convert_array(array, vctrs::partial_frame()),
-    data.frame(a = 1L, b = "two", stringsAsFactors = FALSE)
-  )
-})
-
 test_that("convert to vector works for extension<struct> -> data.frame()", {
   array <- nanoarrow_extension_array(
     data.frame(x = c(TRUE, FALSE, NA, FALSE, TRUE)),