pass on force arg

hfrick · hfrick · commit b5e9e695ffcb · 2025-09-03T11:35:55.000+01:00
diff --git a/R/finalize.R b/R/finalize.R
@@ -114,7 +114,7 @@ safe_finalize <- function(object, x, force = TRUE, ...) {
   if (all(is.na(object))) {
     res <- NA
   } else {
-    res <- finalize(object, x, force = TRUE, ...)
+    res <- finalize(object, x, force = force, ...)
   }
   res
 }

Original file line number	Diff line number	Diff line change
`@@ -114,7 +114,7 @@ safe_finalize <- function(object, x, force = TRUE, ...) {`
`114`	`114`	`if (all(is.na(object))) {`
`115`	`115`	`res <- NA`
`116`	`116`	`} else {`
`117`		`- res <- finalize(object, x, force = TRUE, ...)`
	`117`	`+ res <- finalize(object, x, force = force, ...)`
`118`	`118`	`}`
`119`	`119`	`res`
`120`	`120`	`}`