cast from data frame to cubble

huizezhang-sherry · Oct 2, 2023 · fb0719f · fb0719f
1 parent ef4fd27
commit fb0719f
Show file tree

Hide file tree

Showing 3 changed files with 14 additions and 0 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -7,6 +7,7 @@ S3method("names<-",spatial_cubble_df)
 S3method("names<-",temporal_cubble_df)
 S3method(arrange,spatial_cubble_df)
 S3method(arrange,temporal_cubble_df)
+S3method(as_cubble,data.frame)
 S3method(as_cubble,ncdf4)
 S3method(as_cubble,sf)
 S3method(as_cubble,sftime)

diff --git a/R/as_cubble.R b/R/as_cubble.R
@@ -50,6 +50,16 @@ as_cubble <- function(data, key, index, coords, ...) {
   UseMethod("as_cubble")
 }
 
+#' @rdname as_cubble
+#' @export
+as_cubble.data.frame <- function(data, key, index, coords, ...){
+  key <-  enquo(key)
+  index <-  enquo(index)
+  coords <-  enquo(coords)
+  as_cubble(as_tibble(data), key = !!key, index = !!index, coords = !!coords)
+}
+
+
 #' @rdname as_cubble
 #' @export
 as_cubble.tbl_df <- function(data, key, index, coords, ...) {

diff --git a/man/as_cubble.Rd b/man/as_cubble.Rd