Add simpler code for Catarina's question

* Works on Windows and Linux/MAC * Uses map()_
cgrandin · Nov 14, 2022 · 395d274 · 395d274
1 parent a388173
commit 395d274
Showing 1 changed file with 22 additions and 10 deletions.
diff --git a/R/rbind-question-tidy.R b/R/rbind-question-tidy.R
@@ -4,19 +4,31 @@
 #  in Emacs)
 library(parallel)
 
-result <- mclapply(mc.cores = ncores,
+result <- mclapply(mc.cores = 1,
                    X = 1:5,
                    FUN = function(a){
-                     out <- mclapply(mc.cores = ncores,
+                     out <- mclapply(mc.cores = 1,
                                      X = 1:20,
                                      FUN = function(u){
                                        um <- data.frame(oa = paste0("o", 1:a),
-                                                        a=a)
+                                                        a = a)
                                        dois <- data.frame(dois = paste0("i", u))
-                                       return(structure(list(um=um,
-                                                             dois=dois)))
-                                     }
-                                     )
-                     return(list(out))
-                   }
-)
+                                       structure(list(um = um,
+                                                      dois = dois))
+                                     })
+                     list(out)
+                   })
+
+# Same code simplified, using purrr::map()
+result_map <- map(1:5,
+                  function(a){
+                    out <- map(1:20,
+                               function(u){
+                                 um <- data.frame(oa = paste0("o", 1:a),
+                                                  a = a)
+                                 dois <- data.frame(dois = paste0("i", u))
+                                 structure(list(um = um,
+                                                dois = dois))
+                               })
+                    list(out)
+                  })