Make finalize() methods private

As required by newer R6.

DESCRIPTION

@@ -40,4 +40,4 @@ Config/testthat/edition: 3
 Encoding: UTF-8
 Language: en-US
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.3.1.9000
+RoxygenNote: 7.3.2

R/r-process.R

@@ -41,18 +41,15 @@ r_process <- R6::R6Class(
     #' @return The return value of the R expression evaluated in the R
     #' process.
     get_result = function()
-      rp_get_result(self, private),
+      rp_get_result(self, private)
 
-    #' @description
-    #' Clean up temporary files once an R process has finished and its
-    #' handle is garbage collected.
+  ),
+  private = list(
+    options = NULL,
     finalize = function() {
       unlink(private$options$tmp_files, recursive = TRUE)
       if ("finalize" %in% ls(super)) super$finalize()
     }
-  ),
-  private = list(
-    options = NULL
   )
 )
 

R/r-session.R

@@ -197,16 +197,6 @@ r_session <- R6::R6Class(
     attach = function()
       rs_attach(self, private),
 
-    #' @description
-    #' Finalizer that is called when garbage collecting an `r_session`
-    #' object, to clean up temporary files.
-    finalize = function() {
-      unlink(private$tmp_output_file)
-      unlink(private$tmp_error_file)
-      unlink(private$options$tmp_files, recursive = TRUE)
-      if ("finalize" %in% ls(super)) super$finalize()
-    },
-
     #' @description
     #' Print method for an `r_session`.
     #' @param ... Arguments are not used currently.
@@ -225,6 +215,13 @@ r_session <- R6::R6Class(
   ),
 
   private = list(
+    finalize = function() {
+      unlink(private$tmp_output_file)
+      unlink(private$tmp_error_file)
+      unlink(private$options$tmp_files, recursive = TRUE)
+      if ("finalize" %in% ls(super)) super$finalize()
+    },
+
     options = NULL,
     state = NULL,
     started_at = NULL,

R/rcmd-process.R

@@ -22,16 +22,14 @@ rcmd_process <- R6::R6Class(
     #'  [rcmd_process_options()].
     #' @return A new `rcmd_process` object.
     initialize = function(options)
-      rcmdp_init(self, private, super, options),
-    #' @description
-    #' Clean up the temporary files created for an `R CMD` process.
+      rcmdp_init(self, private, super, options)
+  ),
+  private = list(
+    options = NULL,
     finalize = function() {
       unlink(private$options$tmp_files, recursive = TRUE)
       if ("finalize" %in% ls(super)) super$finalize()
     }
-  ),
-  private = list(
-    options = NULL
   )
 )
 

R/rscript.R

@@ -76,16 +76,14 @@ rscript_process <- R6::R6Class(
     #' @param options A list of options created via
     #'   [rscript_process_options()].
     initialize = function(options)
-      rscript_init(self, private, super, options),
-    #' @description Clean up after an `Rscript` process, remove
-    #' temporary files.
+      rscript_init(self, private, super, options)
+  ),
+  private = list(
+    options = NULL,
     finalize = function() {
       unlink(private$options$tmp_files, recursive = TRUE)
       if ("finalize" %in% ls(super)) super$finalize()
     }
-  ),
-  private = list(
-    options = NULL
   )
 )