Add news item and test

Author: shikokuchuo

NEWS.md

@@ -1,5 +1,9 @@
 # mirai (development version)
 
+#### New Features
+
+* Adds `workbench_config()` to launch remote daemons using the default-configured Kubernetes or traditional cluster on Posit Workbench.
+
 # mirai 2.4.1
 
 #### New Features

R/launchers.R

@@ -451,7 +451,7 @@ cluster_config <- function(
 #' 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
 #'
@@ -463,7 +463,7 @@ cluster_config <- function(
 #'
 #' \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

@@ -84,7 +84,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

@@ -42,6 +42,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"))))