Add news item and test

Author: shikokuchuo

NEWS.md

@@ -8,6 +8,7 @@
 
 #### New Features
 
+* Adds `workbench_config()` to launch remote daemons using the default-configured Kubernetes or traditional cluster on Posit Workbench.
 * Adds `with_daemons()` and `local_daemons()` helper functions for using a particular compute profile.
   This works with daemons that are already set up unlike the existing `with.miraiDaemons()` method, which creates a new scope and tears it down when finished (#360).
 * A mirai now has an attribute `id`, which is a monotonically increasing integer identifier unique to each session.

R/launchers.R

@@ -412,7 +412,7 @@ cluster_config <- function(command = "sbatch", options = "", rscript = "Rscript"
 #' Workbench Remote Launch Configuration
 #'
 #' Generates a remote configuration for launching daemons using the default
-#' launcher configured in Posit Workbench.
+#' configured Kubernetes or traditional cluster in Posit Workbench.
 #'
 #' @inherit remote_config return
 #'
@@ -424,7 +424,7 @@ cluster_config <- function(command = "sbatch", options = "", rscript = "Rscript"
 #'
 #' \dontrun{
 #'
-#' # Launch 2 daemons using the Workbench default launcher:
+#' # Launch 2 daemons using the Workbench default:
 #' daemons(n = 2, url = host_url(), remote = workbench_config())
 #' }
 #'

R/mirai-package.R

@@ -81,7 +81,6 @@
     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_unavailable = "workbench launcher requires a compatible 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"

tests/tests.R

@@ -43,6 +43,7 @@ test_true(grepl("5555", local_url(tcp = TRUE, port = 5555), fixed = TRUE))
 test_type("list", ssh_config("ssh://remotehost"))
 test_type("list", ssh_config("ssh://remotehost", tunnel = TRUE))
 test_type("list", cluster_config())
+test_type("list", tryCatch(workbench_config(), error = function(cnd) list()))
 test_true(is_mirai_interrupt(r <- mirai:::mk_interrupt_error()))
 test_print(r)
 test_true(is_mirai_error(r <- `class<-`("Error in: testing\n", c("miraiError", "errorValue", "try-error"))))