set updated attributes in S7_data<-

closes #478
RConsortium · Oct 25, 2024 · 02c1e78 · 02c1e78
1 parent 5e939fb
commit 02c1e78
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/data.R b/R/data.R
@@ -29,7 +29,7 @@ S7_data <- function(object) {
 `S7_data<-` <- function(object, check = TRUE, value) {
   attrs <- attributes(object)
   object <- value
-  attributes(object) <- attrs
+  attributes(object) <- modify_list(attrs, attributes(value))
   if (isTRUE(check)) {
     validate(object)
   }