Inject string comments when building up future expressions

Author: HenrikBengtsson

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: doFuture
-Version: 1.0.1-9010
+Version: 1.0.1-9011
 Title: Use Foreach to Parallelize via the Future Framework
 Depends:
     foreach (>= 1.5.0),

R/doFuture.R

@@ -11,9 +11,11 @@ doFuture <- local({
   })
 
   tmpl_expr <- bquote_compile({
-    ## Tell foreach to keep using futures also in nested calls
+    "# doFuture():::doFuture(): Make sure that foreach uses 'doFuture'
+    "# also in nested calls"
     doFuture::registerDoFuture()
 
+    "# doFuture():::doFuture(): process chunk of elements"
     lapply(seq_along(...future.x_ii), FUN = function(jj) {
       ...future.x_jj <- ...future.x_ii[[jj]]  #nolint
       .(dummy_globals)
@@ -29,6 +31,7 @@ doFuture <- local({
   })
 
   tmpl_expr_options <- bquote_compile({
+    "# doFuture:::doFuture(): preserve future option"
     ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
     if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
       oopts <- options(future.globals.maxSize = ...future.globals.maxSize)

R/dofuture_OP.R

@@ -867,6 +867,8 @@ tmpl_dummy_globals <- bquote_compile({
 
 tmpl_expr_with_rng <- bquote_compile({
   .(optional_patches)
+  
+  "# doFuture():::doFuture2(): process chunk of elements"
   lapply(seq_along(...future.x_ii), FUN = function(jj) {
     ...future.x_jj <- ...future.x_ii[[jj]]  #nolint
     .(dummy_globals)
@@ -884,6 +886,7 @@ tmpl_expr_with_rng <- bquote_compile({
 
 
 tmpl_expr_options <- bquote_compile({
+  "# doFuture:::doFuture2(): preserve future option"
   ...future.globals.maxSize.org <- getOption("future.globals.maxSize")
   if (!identical(...future.globals.maxSize.org, ...future.globals.maxSize)) {
     oopts <- options(future.globals.maxSize = ...future.globals.maxSize)