fix(leanify): disable leanification during roxygenise (#96)

DESCRIPTION

@@ -34,7 +34,7 @@ Config/testthat/parallel: true
 Encoding: UTF-8
 NeedsCompilation: yes
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.2.3
+RoxygenNote: 7.2.3.9000
 Collate:
     'Dictionary.R'
     'named_list.R'

NEWS.md

@@ -1,4 +1,8 @@
-# mlr3misc 0.12.0-9000
+# mlr3misc 0.13.0
+
+* Bugfix: disable leanification when `ROXYGEN_PKG` environment variable is set
+
+# mlr3misc 0.13.0
 
 * Updated default environment for `crate()` to `topenv()` (#86).
 * Added safe methods for dictionary retrieval (#83)

R/leanify.R

@@ -8,6 +8,13 @@
 #'
 #' leanificate_method is called by [leanify_r6] for each function of an [R6] class.
 #'
+#' Leanification also removes the `"srcref"` attribute of functions (sets it to `NULL`), because
+#' 1) it is incorrect and
+#' 2) srcrefs can lead to exploding object sizes.
+#'
+#' However, because `roxgyen2` needs the srcrefs to create the documentation for R6 classes, leanification
+#' is skipped during `roxygenize()`, i.e. when the `ROXYGEN_PKG` environment variable is set.
+#'
 #' @param cls (`R6ClassGenerator`)\cr
 #'   R6Class object (i.e. R6 object generator) to modify.
 #' @param name (`character(1)`)\cr
@@ -99,6 +106,13 @@ leanify_package = function(pkg_env = parent.frame(), skip_if = function(x) FALSE
   assert_environment(pkg_env)
   assert_function(skip_if)
 
+  # otherwise creation of R6 docs fails
+  pkg = Sys.getenv("ROXYGEN_PKG")
+  if (nzchar(pkg)) {
+    messagef("Skipping leanification of package '%s' during roxygenize.", pkg)
+    return(NULL)
+  }
+
   for (varname in names(pkg_env)) {
     content = get(varname, envir = pkg_env, inherits = FALSE)
     if (R6::is.R6Class(content) && !isTRUE(skip_if(content))) {