(arrow-nanoarrow) branch main updated: fix(r): Fix usage of deperecated syntax for forthcoming R release (#840)

[paleolimbot]

This is an automated email from the ASF dual-hosted git repository.

paleolimbot pushed a commit to branch main
in repository https://gitbox.apache.org/repos/asf/arrow-nanoarrow.git


The following commit(s) were added to refs/heads/main by this push:
     new 3fd91d2b fix(r): Fix usage of deperecated syntax for forthcoming R 
release (#840)
3fd91d2b is described below

commit 3fd91d2b78a6951893d15ccf344cbdde8df9e872
Author: Dewey Dunnington <de...@dunnington.ca>
AuthorDate: Fri Jan 16 09:24:28 2026 -0600

    fix(r): Fix usage of deperecated syntax for forthcoming R release (#840)
    
    Closes #836
---
 r/src/altrep.h | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/r/src/altrep.h b/r/src/altrep.h
index 1e2ce2a5..24b08003 100644
--- a/r/src/altrep.h
+++ b/r/src/altrep.h
@@ -31,7 +31,11 @@
 // object.
 static inline const char* nanoarrow_altrep_class(SEXP x) {
   if (ALTREP(x)) {
+#if R_VERSION >= R_Version(4, 6, 0)
+    SEXP data_class_sym = R_altrep_class_name(x);
+#else
     SEXP data_class_sym = CAR(ATTRIB(ALTREP_CLASS(x)));
+#endif
     return CHAR(PRINTNAME(data_class_sym));
   } else {
     return NULL;