Update char_to_.R

RMI-PACTA · Jan 17, 2024 · 545640c · 545640c
1 parent 7590f7d
commit 545640c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/char_to_.R b/R/char_to_.R
@@ -2,9 +2,9 @@
 # characters using hex or unicode R escape strings
 
 char_to_hex <- function(x) {
-  cat(paste(paste0("\\x", charToRaw(x)), collapse = ""))
+  cat(paste0("\"", paste0("\\x", charToRaw(x), collapse = ""), "\""))
 }
 
 char_to_unicode <- function(x) {
-  cat(paste0("\\U", format(as.hexmode(utf8ToInt(x)), width = 2 * length(charToRaw(x)), upper = TRUE)))
+  cat(paste0("\"\\U", format(as.hexmode(utf8ToInt(x)), width = 8, upper = TRUE), "\""))
 }