R - 表情符号 unicode 到字符

Question

我正在使用 R 进行编码。假设我的表情符号的 unicode 值为

wink_emoji <- "\U0001f609"

或者，作为

wink_emoji <- "U+1f609"

是否有一个函数可以用来将实际的表情符号字符打印到控制台？像这样:

[1] "😉"

作为它的 HTML 字符实体怎么样？

[1] "😉"

此外，如果我有一个像这样的字符串:

test <- "This is a test U+1f609 U+1F469 U+200D U+2764 U+FE0F U+200D U+1F48B U+200D U+1F469"

我可以通过一个函数运行它来匹配所有表情符号并返回:

[1] "This is a test 😉👩‍❤️‍💋‍👩"

Answer 1

使用utf8包中的utf8_print进行打印，utf8ToInt获取代码点的整数值:

wink_emoji <- "\U0001f609"
utf8::utf8_print(wink_emoji)
#> [1] "😉​"
utf8ToInt(wink_emoji)
#> [1] 128521

(打印表情符号仅适用于 MacOS 和 Linux，不适用于 Windows。)