第七色在线视频,2021少妇久久久久久久久久,亚洲欧洲精品成人久久av18,亚洲国产精品特色大片观看完整版,孙宇晨将参加特朗普的晚宴

為了賬號安全,請及時綁定郵箱和手機立即綁定
已解決430363個問題,去搜搜看,總會有你想問的

如何將 R 中的轉(zhuǎn)義十六進制數(shù)轉(zhuǎn)換為 html 格式的十六進制數(shù)

如何將 R 中的轉(zhuǎn)義十六進制數(shù)轉(zhuǎn)換為 html 格式的十六進制數(shù)

斯蒂芬大帝 2023-09-11 16:32:13
例如: R 有一個表情符號轉(zhuǎn)義為“\U0001f923”,我想將其傳遞到一個 html 文件,其中其格式可用作字符: & # x 1 f 9 2 3 ; (??)。如何將 R 中的轉(zhuǎn)義十六進制數(shù)轉(zhuǎn)換為 html 格式的十六進制數(shù)?
查看完整描述

1 回答

?
藍山帝景

TA貢獻1843條經(jīng)驗 獲得超7個贊

您可以組合函數(shù)utf8ToInt和as.hexmode,然后將轉(zhuǎn)義字符粘貼到:


as.html <- function(x) paste0("&x", as.hexmode(utf8ToInt(x)), ";")

as.html("\U0001f923")

#> [1] "&x1f923;"

您可以使用它來替換多字節(jié)字符,如下所示:


replace_multibytes <- function(x)

{

  as.html <- function(x) paste0("&x", as.hexmode(utf8ToInt(x)), ";")

  char_list <- as.list(unlist(strsplit(x, "")))

  x <- sapply(char_list, function(y) if(length(charToRaw(y)) > 1) as.html(y) else y)

  paste0(x, collapse = "")

}

所以現(xiàn)在你可以做


replace_multibytes("The following need replaced: \U0001f923 \U0001f924")

#> [1] "The following need replaced: &x1f923; &x1f924;"


查看完整回答
反對 回復(fù) 2023-09-11
  • 1 回答
  • 0 關(guān)注
  • 128 瀏覽

添加回答

舉報

0/150
提交
取消
微信客服

購課補貼
聯(lián)系客服咨詢優(yōu)惠詳情

幫助反饋 APP下載

慕課網(wǎng)APP
您的移動學(xué)習(xí)伙伴

公眾號

掃描二維碼
關(guān)注慕課網(wǎng)微信公眾號