Merge pull request #33 from loreabad6/main

Allow passing arguments to update_cubble()
huizezhang-sherry · Aug 12, 2024 · 12e62f9 · 12e62f9
2 parents e5db68a + 26a1750
commit 12e62f9
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/sf.R b/R/sf.R
@@ -46,9 +46,9 @@ update_cubble <- function(data, key, index, coords, ...){
 update_cubble.spatial_cubble_df <- function(data, key = NULL,
  index = NULL, coords = NULL, ...){
  is_cubble(data)
- key <- key_vars(data)
- index <- index_var(data)
- coords <- coords(data)
+ key <- key %||% key_vars(data)
+ index <- index %||% index_var(data)
+ coords <- coords %||% coords(data)
 
  data |> new_spatial_cubble(key = key, index = index, coords = coords)