From 262b8e42d9a851611c983e9eaeadd2340e4fad0a Mon Sep 17 00:00:00 2001 From: John Kerl Date: Wed, 2 Oct 2024 08:58:47 -0400 Subject: [PATCH] R-side iteration [skip ci] --- apis/r/R/SOMADataFrame.R | 24 ++++++++++++++---------- 1 file changed, 14 insertions(+), 10 deletions(-) diff --git a/apis/r/R/SOMADataFrame.R b/apis/r/R/SOMADataFrame.R index f591eeb39a..d93d3968c5 100644 --- a/apis/r/R/SOMADataFrame.R +++ b/apis/r/R/SOMADataFrame.R @@ -323,6 +323,18 @@ SOMADataFrame <- R6::R6Class( ) } + # * drop_cols: attr_name + # * add_attrs: attr_name -> Arrow type string for the index + # type, e.g. 'c' for int8 + # * add_enmrs: attr_name -> pair of: + # o Arrow type string the value type, e.g. "f" or "U" + # o bool ordered + + drop_cols_for_clib <- drop_cols + add_cols_index_types_for_clib <- list() + add_cols_value_types_for_clib <- list() + add_cols_ordered_for_clib <- list() + # Add columns for (add_col in add_cols) { spdl::debug("[SOMADataFrame update]: adding column '{}'", add_col) @@ -333,18 +345,10 @@ SOMADataFrame <- R6::R6Class( tiledb_create_options = tiledb_create_options ) - cat("\n\n") - cat("ADD COL NAME\n") - cat(add_col) - cat("ADD COL TYPE\n") - print(col_type) - cat("\n\n") - browser() - if (inherits(col_type, "DictionaryType")) { spdl::debug( - "[SOMADataFrame update]: adding column '{}' as an enumerated type", - add_col + "[SOMADataFrame update]: adding enum column '{}' index type '{}' value type '{}' ordered {}", + add_col, col_type$index_type$name, col_type$value_type$name, col_type$ordered ) se <- tiledb::tiledb_array_schema_evolution_add_enumeration( object = se,