From 26a17500911eba7ebab4dc38429935ba2125bb88 Mon Sep 17 00:00:00 2001 From: Lorena Abad Crespo Date: Mon, 12 Aug 2024 17:10:32 +0200 Subject: [PATCH] Allow passing arguments to update_cubble() --- R/sf.R | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/R/sf.R b/R/sf.R index 41efcd79..4a764f83 100644 --- 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)