如何将 R 中的转义十六进制数转换为 html 格式的十六进制数

Question

例如： R 有一个表情符号转义为“\U0001f923”，我想将其传递到一个 html 文件，其中其格式可用作字符： & # x 1 f 9 2 3 ; （🤣）。

如何将 R 中的转义十六进制数转换为 html 格式的十六进制数？

Answer 1

您可以组合函数utf8ToInt和as.hexmode，然后将转义字符粘贴到：as.html <- function(x) paste0("&x", as.hexmode(utf8ToInt(x)), ";")as.html("\U0001f923")#> [1] "&x1f923;"您可以使用它来替换多字节字符，如下所示：replace_multibytes <- function(x){&nbsp; as.html <- function(x) paste0("&x", as.hexmode(utf8ToInt(x)), ";")&nbsp; char_list <- as.list(unlist(strsplit(x, "")))&nbsp; x <- sapply(char_list, function(y) if(length(charToRaw(y)) > 1) as.html(y) else y)&nbsp; paste0(x, collapse = "")}所以现在你可以做replace_multibytes("The following need replaced: \U0001f923 \U0001f924")#> [1] "The following need replaced: &x1f923; &x1f924;"