Refactor a bit

Author: shikokuchuo

R/launchers.R

@@ -99,26 +99,10 @@ launch_remote <- function(n = 1L, remote = remote_config(), ..., tls = NULL, .co
   if (length(remote) == 2L) {
     platform <- remote[["platform"]]
     args <- remote[["args"]]
-    platform == "posit" && {
-      tools <- posit_tools()
-      is.environment(tools) || stop(._[["posit_api"]])
-      submit_job <- .subset2(tools, ".rs.api.launcher.submitJob")
-      new_container <- .subset2(tools, ".rs.api.launcher.newContainer")
-      cluster <- args[["name"]]
-      container <- new_container(args[["image"]])
-      cmds <- launch_remote(n)
-      lapply(
-        cmds,
-        function(cmd) submit_job(
-          sprintf("mirai_daemon_%s", random(3L)),
-          cluster = cluster,
-          command = cmd,
-          container = container
-        )
-      )
-      return(cmds)
-    }
-    stop(._[["platform_unsupported"]])
+    platform != "posit" && stop(._[["platform_unsupported"]])
+    tools <- posit_tools()
+    is.environment(tools) || stop(._[["posit_api"]])
+    return(posit_workbench_launch(n, args, tools))
   }
 
   command <- remote[["command"]]
@@ -553,3 +537,20 @@ posit_tools <- function() {
   is.function(feature_available) && feature_available() || return()
   tools
 }
+
+posit_workbench_launch <- function(n, args, tools) {
+  submit_job <- .subset2(tools, ".rs.api.launcher.submitJob")
+  new_container <- .subset2(tools, ".rs.api.launcher.newContainer")
+  cluster <- args[["name"]]
+  container <- new_container(args[["image"]])
+  cmds <- launch_remote(n)
+  lapply(cmds, function(cmd)
+    submit_job(
+      sprintf("mirai_daemon_%s", random(3L)),
+      cluster = cluster,
+      command = cmd,
+      container = container
+    )
+  )
+  cmds
+}