diff --git a/apis/r/R/ReadIter.R b/apis/r/R/ReadIter.R index 30e02c5763..2e6ab1ae5e 100644 --- a/apis/r/R/ReadIter.R +++ b/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 ) ) diff --git a/apis/r/R/SOMADataFrame.R b/apis/r/R/SOMADataFrame.R index bef83e6cc6..cffa235c4c 100644 --- a/apis/r/R/SOMADataFrame.R +++ b/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) diff --git a/apis/r/man/ReadIter.Rd b/apis/r/man/ReadIter.Rd index 1bc87662cb..1275190e1c 100644 --- a/apis/r/man/ReadIter.Rd +++ b/apis/r/man/ReadIter.Rd @@ -35,8 +35,6 @@ Create (lifecycle: experimental) \if{html}{\out{