Fix tls for http launcher (#573)

* Fix tls for http launcher

* Add news item

Author: shikokuchuo

NEWS.md

@@ -1,5 +1,9 @@
 # mirai (development version)
 
+#### Updates
+
+* Fixes `launch_remote()` with `http_config()` failing for TLS connections, where newlines in the PEM certificate produced invalid JSON in the request payload.
+
 # mirai 2.6.1
 
 #### Updates

R/launchers.R

@@ -506,6 +506,7 @@ launch_remote_http <- function(n, remote, url, write_args, dots, envir, tls) {
     cmd <- write_args(url, dots, maybe_next_stream(envir), tls)
     cmd <- gsub("\\", "\\\\", cmd, fixed = TRUE)
     cmd <- gsub("\"", "\\\"", cmd, fixed = TRUE)
+    cmd <- gsub("\n", "\\n", cmd, fixed = TRUE)
     ncurl(
       url = api_url,
       method = method,

tests/tests.R

@@ -334,7 +334,7 @@ connection && NOT_CRAN && {
 connection && NOT_CRAN && {
   Sys.sleep(0.5)
   cfg <- serial_config("custom", function(x) serialize(x, NULL), unserialize)
-  test_true(daemons(url = host_url(), pass = "test", serial = cfg))
+  test_true(daemons(url = host_url(tls = TRUE), pass = "test", serial = cfg))
   if (.Platform$OS.type == "unix") test_type("character", launch_remote(remote = cluster_config(command = "/bin/sh", options = "#SBATCH", rscript = file.path(R.home("bin"), "Rscript"))))
   test_type("list", launch_remote(2L, remote = http_config(url = "http://127.0.0.1:0", data = '{"cmd":"%s"}')))
   test_equal(launch_local(1L), 1L)