chore(r/sedonadb): Update savvy to v0.9 (#401)

Author: yutannihilation

r/sedonadb/NAMESPACE

@@ -14,8 +14,8 @@ S3method(dim,sedonadb_dataframe)
 S3method(dimnames,sedonadb_dataframe)
 S3method(head,sedonadb_dataframe)
 S3method(infer_nanoarrow_schema,sedonadb_dataframe)
-S3method(print,InternalContext__bundle)
-S3method(print,InternalDataFrame__bundle)
+S3method(print,"sedonadb::InternalContext__bundle")
+S3method(print,"sedonadb::InternalDataFrame__bundle")
 S3method(print,sedonadb_dataframe)
 export(as_sedonadb_dataframe)
 export(sd_collect)

r/sedonadb/R/000-wrappers.R

@@ -131,7 +131,7 @@ NULL
   e$`sql` <- `InternalContext_sql`(ptr)
   e$`view` <- `InternalContext_view`(ptr)
 
-  class(e) <- c("InternalContext", "savvy_sedonadb__sealed")
+  class(e) <- c("sedonadb::InternalContext", "InternalContext", "savvy_sedonadb__sealed")
   e
 }
 
@@ -146,11 +146,11 @@ NULL
 }
 
 
-class(`InternalContext`) <- c("InternalContext__bundle", "savvy_sedonadb__sealed")
+class(`InternalContext`) <- c("sedonadb::InternalContext__bundle", "savvy_sedonadb__sealed")
 
 #' @export
-`print.InternalContext__bundle` <- function(x, ...) {
-  cat('InternalContext\n')
+`print.sedonadb::InternalContext__bundle` <- function(x, ...) {
+  cat('sedonadb::InternalContext\n')
 }
 
 ### wrapper functions for InternalDataFrame
@@ -163,7 +163,7 @@ class(`InternalContext`) <- c("InternalContext__bundle", "savvy_sedonadb__sealed
 
 `InternalDataFrame_compute` <- function(self) {
   function(`ctx`) {
-    `ctx` <- .savvy_extract_ptr(`ctx`, "InternalContext")
+    `ctx` <- .savvy_extract_ptr(`ctx`, "sedonadb::InternalContext")
     .savvy_wrap_InternalDataFrame(.Call(savvy_InternalDataFrame_compute__impl, `self`, `ctx`))
   }
 }
@@ -188,7 +188,7 @@ class(`InternalContext`) <- c("InternalContext__bundle", "savvy_sedonadb__sealed
 
 `InternalDataFrame_show` <- function(self) {
   function(`ctx`, `width_chars`, `ascii`, `limit` = NULL) {
-    `ctx` <- .savvy_extract_ptr(`ctx`, "InternalContext")
+    `ctx` <- .savvy_extract_ptr(`ctx`, "sedonadb::InternalContext")
     .Call(savvy_InternalDataFrame_show__impl, `self`, `ctx`, `width_chars`, `ascii`, `limit`)
   }
 }
@@ -207,7 +207,7 @@ class(`InternalContext`) <- c("InternalContext__bundle", "savvy_sedonadb__sealed
 
 `InternalDataFrame_to_parquet` <- function(self) {
   function(`ctx`, `path`, `partition_by`, `sort_by`, `single_file_output`, `overwrite_bbox_columns`, `geoparquet_version` = NULL) {
-    `ctx` <- .savvy_extract_ptr(`ctx`, "InternalContext")
+    `ctx` <- .savvy_extract_ptr(`ctx`, "sedonadb::InternalContext")
     invisible(.Call(savvy_InternalDataFrame_to_parquet__impl, `self`, `ctx`, `path`, `partition_by`, `sort_by`, `single_file_output`, `overwrite_bbox_columns`, `geoparquet_version`))
   }
 }
@@ -220,7 +220,7 @@ class(`InternalContext`) <- c("InternalContext__bundle", "savvy_sedonadb__sealed
 
 `InternalDataFrame_to_view` <- function(self) {
   function(`ctx`, `table_ref`, `overwrite`) {
-    `ctx` <- .savvy_extract_ptr(`ctx`, "InternalContext")
+    `ctx` <- .savvy_extract_ptr(`ctx`, "sedonadb::InternalContext")
     invisible(.Call(savvy_InternalDataFrame_to_view__impl, `self`, `ctx`, `table_ref`, `overwrite`))
   }
 }
@@ -240,7 +240,7 @@ class(`InternalContext`) <- c("InternalContext__bundle", "savvy_sedonadb__sealed
   e$`to_provider` <- `InternalDataFrame_to_provider`(ptr)
   e$`to_view` <- `InternalDataFrame_to_view`(ptr)
 
-  class(e) <- c("InternalDataFrame", "savvy_sedonadb__sealed")
+  class(e) <- c("sedonadb::InternalDataFrame", "InternalDataFrame", "savvy_sedonadb__sealed")
   e
 }
 
@@ -252,9 +252,9 @@ class(`InternalContext`) <- c("InternalContext__bundle", "savvy_sedonadb__sealed
 
 
 
-class(`InternalDataFrame`) <- c("InternalDataFrame__bundle", "savvy_sedonadb__sealed")
+class(`InternalDataFrame`) <- c("sedonadb::InternalDataFrame__bundle", "savvy_sedonadb__sealed")
 
 #' @export
-`print.InternalDataFrame__bundle` <- function(x, ...) {
-  cat('InternalDataFrame\n')
+`print.sedonadb::InternalDataFrame__bundle` <- function(x, ...) {
+  cat('sedonadb::InternalDataFrame\n')
 }