R Under development (unstable) (2024-01-23 r85822 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2024 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library("R.methodsS3")
R.methodsS3 v1.8.2 (2022-06-13 22:00:14 UTC) successfully loaded. See ?R.methodsS3 for help.
> library("R.oo")
R.oo v1.26.0 successfully loaded. See ?R.oo for help.

Attaching package: 'R.oo'

The following object is masked from 'package:R.methodsS3':

    throw

The following objects are masked from 'package:methods':

    getClasses, getMethods

The following objects are masked from 'package:base':

    attach, detach, load, save

> 
> oopts <- options(warn=1L)
> 
> message("TESTING: finalize() on Object on and off ...")
TESTING: finalize() on Object on and off ...
> 
> finalized <- NULL
> if ("covr" %in% loadedNamespaces()) {
+   assertFinalization <- function(name) TRUE
+ } else {
+   assertFinalization <- function(name) {
+     cat(sprintf("Is '%s' in '%s'?\n", name, paste(finalized, collapse=", ")))
+     stopifnot(is.element(name, finalized))
+   }
+ }
> 
> name <- NULL
> nextName <- function() {
+   if (is.null(name)) return(letters[1L])
+   letters[which(letters == name) + 1L]
+ }
> 
> setMethodS3("finalize", "Foo", function(this, ...) {
+   cat(sprintf("Finalizing %s()...\n", class(this)[1L]))
+   name <- unclass(this)
+   cat(sprintf("  Value: %s\n", name))
+   finalized <<- c(finalized, name)
+   cat(sprintf("Finalizing %s()...done\n", class(this)[1L]))
+ })
NULL
> 
> 
> setConstructorS3("Foo", function(..., ...finalize=NA) {
+   extend(Object(...), "Foo", ...finalize=...finalize)
+ })
> 
> # Default
> x <- Foo(name <- nextName())
> rm(list="x"); gc()
Finalizing Foo()...
  Value: a
Finalizing Foo()...done
         used (Mb) gc trigger (Mb) max used (Mb)
Ncells 395747 21.2     813767 43.5   633877 33.9
Vcells 716267  5.5    8388608 64.0  2002881 15.3
> assertFinalization(name)
Is 'a' in 'a'?
> 
> # Default (explicit)
> x <- Foo(name <- nextName(), finalize=TRUE, ...finalize=NA)
> rm(list="x"); gc()
Finalizing Foo()...
  Value: b
Finalizing Foo()...done
         used (Mb) gc trigger (Mb) max used (Mb)
Ncells 397038 21.3     813767 43.5   633877 33.9
Vcells 743838  5.7    8388608 64.0  2002881 15.3
> str(finalized)
 chr [1:2] "a" "b"
> assertFinalization(name)
Is 'b' in 'a, b'?
> 
> # Disable
> x <- Foo(name <- nextName(), finalize=FALSE, ...finalize=FALSE)
> rm(list="x"); gc()
         used (Mb) gc trigger (Mb) max used (Mb)
Ncells 405923 21.7     813767 43.5   633877 33.9
Vcells 738511  5.7    8388608 64.0  2002881 15.3
> str(finalized)
 chr [1:2] "a" "b"
> 
> # Disable (forced)
> x <- Foo(name <- nextName(), finalize=TRUE, ...finalize=FALSE)
> rm(list="x"); gc()
         used (Mb) gc trigger (Mb) max used (Mb)
Ncells 405925 21.7     813767 43.5   633877 33.9
Vcells 738515  5.7    8388608 64.0  2002881 15.3
> str(finalized)
 chr [1:2] "a" "b"
> 
> # Enable (forced)
> x <- Foo(name <- nextName(), finalize=FALSE, ...finalize=TRUE)
> rm(list="x"); gc()
Finalizing Foo()...
  Value: e
Finalizing Foo()...done
         used (Mb) gc trigger (Mb) max used (Mb)
Ncells 405942 21.7     813767 43.5   633877 33.9
Vcells 738604  5.7    8388608 64.0  2002881 15.3
> str(finalized)
 chr [1:3] "a" "b" "e"
> assertFinalization(name)
Is 'e' in 'a, b, e'?
> 
> print(finalized)
[1] "a" "b" "e"
> 
> # Finalize upon exit
> options("R.oo::Object/finalizeOnExit"=TRUE)
> y <- Foo(name <- "OnExit")
> 
> message("TESTING: finalize() on Object on and off ... DONE")
TESTING: finalize() on Object on and off ... DONE
> 
> options(oopts)
> 
> proc.time()
   user  system elapsed 
   0.50    0.04    0.53 
Finalizing Foo()...
  Value: OnExit
Finalizing Foo()...done