[r] Small tweaks and polishes

apis/r/R/ReadIter.R

@@ -11,10 +11,8 @@ ReadIter <- R6::R6Class(
 
     #' @description Create (lifecycle: experimental)
     #' @param sr soma read pointer
-    #' @param enums An optional list with enumeration information
-    initialize = function(sr, enumlst=NULL) {
+    initialize = function(sr) {
       private$soma_reader_pointer <- sr
-      private$enums <- enumlst
     },
 
     #' @description Check if iterated read is complete or not. (lifecycle: experimental)
@@ -56,13 +54,11 @@ ReadIter <- R6::R6Class(
 
     # Internal 'external pointer' object used for iterated reads
     soma_reader_pointer = NULL,
-    #ctx_pointer = NULL,
 
     # to be refined in derived classes
     soma_reader_transform = function(x) {
       .NotYetImplemented()
-    },
+    }
 
-    enums = NULL
   )
 )

apis/r/R/SOMADataFrame.R

@@ -221,20 +221,7 @@ SOMADataFrame <- R6::R6Class(
                      timestamp_end = private$tiledb_timestamp,
                      loglevel = log_level)
       private$ctx_ptr <- rl$ctx
-
-      arr <- tiledb::tiledb_array(self$uri)
-      enumvec <- tiledb::tiledb_array_has_enumeration(arr)
-      enumlst <- vector(mode="list", length=length(enumvec))
-      names(enumlst) <- names(enumvec)
-      attrs <- tiledb::attrs(tiledb::schema(arr))
-      arr <- tiledb::tiledb_array_open(arr, "READ")
-      for (n in names(enumvec)) {
-          if (enumvec[[n]]) {
-              enumlst[[n]] <- tiledb::tiledb_attribute_get_enumeration(attr=attrs[[n]], arr)
-          }
-      }
-
-      TableReadIter$new(rl$sr, enumlst)
+      TableReadIter$new(rl$sr)
     },
 
     #' @description Update (lifecycle: experimental)