add unexported char_to_hex() and char_to_unicode() utility functions

R/char_to_.R

@@ -0,0 +1,7 @@
+char_to_hex <- function(x) {
+  cat(paste(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)))
+}