test R-devel

Author: Jean-Romain

R/altrep.R

@@ -56,16 +56,24 @@ true_size <- function(x)
 is_compact <- function(x)
 {
   altrep <- R_altrep_full_class(x)
+  if (is.null(altrep)) return(FALSE)
   cat(">>>>>>>\n")
   print(altrep)
   print(class(altrep))
   print(str(altrep))
   cat("<<<<<<<\n")
-  if (is.null(altrep)) return(FALSE)
-  if (altrep[[2]] == "rlas") {
+
+  if (getRversion() < "4.6.0")
+  {
+    altrep = altrep[[2]]
+  }
+
+  if (altrep == "rlas")
+  {
     if (R_is_materialized(x)) return(FALSE)
     return(TRUE)
   }
+
   return(FALSE)
 }