use octal rather than literals for control characters in R string

dankessler · dankessler · commit 2ce184648854 · 2022-01-31T13:56:57.000-05:00
This avoids a bug when the file is "injected" where the control characters are potentially intercepted and consumed by the shell on their way to R. This should fix the original bug reported in #1163, although it doesn't fully address the issues with MPI support for sessions initiated by `ess-remote` (which require some additional work as outlined [here](#1163 (comment))
diff --git a/etc/ESSR/R/mpi.R b/etc/ESSR/R/mpi.R
@@ -7,7 +7,7 @@
         else as.character(el)
     })
     payload <- paste(dots, collapse = "")
-    cat(sprintf("_%s%s\\", head, payload))
+    cat(sprintf("\033_%s036%s\033\\", head, payload))
 }
 
 .ess_mpi_message <- function(msg){

Original file line number	Diff line number	Diff line change
`@@ -7,7 +7,7 @@`
`7`	`7`	`else as.character(el)`
`8`	`8`	`})`
`9`	`9`	`payload <- paste(dots, collapse = "")`
`10`		`- cat(sprintf("_%s%s\\", head, payload))`
	`10`	`+ cat(sprintf("\033_%s036%s\033\\", head, payload))`
`11`	`11`	`}`
`12`	`12`
`13`	`13`	`.ess_mpi_message <- function(msg){`