Remove dependency on rstudioapi package

Author: shikokuchuo

DESCRIPTION

@@ -30,8 +30,7 @@ Imports:
     nanonext (>= 1.6.2.9002)
 Suggests: 
     cli,
-    litedown,
-    rstudioapi
+    litedown
 Enhances: 
     parallel,
     promises

R/launchers.R

@@ -95,13 +95,13 @@ launch_remote <- function(n = 1L, remote = remote_config(), ..., tls = NULL, .co
   if (is.null(tls)) tls <- envir[["tls"]]
 
   if (length(remote) == 2L) {
-    requireNamespace("rstudioapi", quietly = TRUE) || stop(._[["rstudio_api"]])
-    rstudioapi::launcherAvailable()
+    submit_job <- .subset2(rstudio(), ".rs.api.launcher.submitJob")
+    new_container <- .subset2(rstudio(), ".rs.api.launcher.newContainer")
     cluster <- remote[["name"]]
-    container <- rstudioapi::launcherContainer(remote[["image"]])
+    container <- new_container(remote[["image"]])
     lapply(
       seq_len(n),
-      function(x) rstudioapi::launcherSubmitJob(
+      function(x) submit_job(
         sprintf("mirai_daemon_%d", x),
         cluster = cluster,
         command = launch_remote(),
@@ -431,9 +431,8 @@ cluster_config <- function(command = "sbatch", options = "", rscript = "Rscript"
 #' @export
 #'
 workbench_config <- function() {
-  requireNamespace("rstudioapi", quietly = TRUE) || stop(._[["rstudio_api"]])
-  rstudioapi::launcherAvailable()
-  cluster <- rstudioapi::launcherGetInfo()[["clusters"]][[1L]]
+  get_info <- .subset2(rstudio(), ".rs.api.launcher.getInfo")
+  cluster <- get_info()[["clusters"]][[1L]]
   list(name = cluster[["name"]], image = cluster[["defaultImage"]])
 }
 
@@ -521,3 +520,12 @@ find_dot <- function(args) {
   any(sel) || stop(._[["dot_required"]], call. = FALSE)
   sel
 }
+
+rstudio <- function() {
+  idx <- match("tools:rstudio", search())
+  is.na(idx) && stop(._[["rstudio_api"]])
+  tools <- as.environment(idx)
+  feature_available <- .subset2(tools, ".rs.api.launcher.jobsFeatureAvailable")
+  is.function(feature_available) && feature_available() || stop(._[["rstudio_api"]])
+  tools
+}

R/mirai-package.R

@@ -80,7 +80,7 @@
     n_zero = "the number of daemons must be zero or greater",
     not_found = "compute profile `%s` not found",
     numeric_n = "`n` must be numeric, did you mean to provide `url`?",
-    rstudio_api = "workbench launcher requires the `rstudioapi` package",
+    rstudio_api = "workbench launcher requires a Posit Workbench environment",
     sync_daemons = "mirai: initial sync with daemon(s) [%d secs elapsed]",
     sync_dispatcher = "mirai: initial sync with dispatcher [%d secs elapsed]",
     within_map = "cannot create local daemons from within mirai map"