在 R 中编码带引号的可打印电子邮件答案

【问题标题】：Encode quoted-printable email in R在 R 中编码带引号的可打印电子邮件
【发布时间】：2016-11-30 17:14:22
【问题描述】：

是否有使用 R 对电子邮件中引用的可打印文本进行编码的包或函数？

例如

Content-Type: text/plain; charset="windows-1251"
Content-Transfer-Encoding: quoted-printable

=CA=EE=EB=EB=E5=E3=E8!

我怎样才能得到字符串="Коллеги!"在 R 中？

【问题讨论】：

【解决方案1】：

base 包中的 Encoding 应该可以完成这项工作。例如：

x <- "fa\xE7ile"
Encoding(x)
Encoding(x) <- "latin1"
x

会返回：

[1] "façile"

您的电子邮件中的文本将只是一个字符串向量，因此您可以随意对其进行编码。

【讨论】：

成功了！谢谢。可能你知道我如何在“\x”上替换“=”吗？当我尝试 x=gsub(pattern = "=",replacement = '\x',x = "=C2=EB=E0=E4=E8=EC=E8=F0,") 时，我得到“错误：'\ x' 在以 "'\x"" 开头的字符串中不使用十六进制数字。
浏览 Stacks 寻找类似的问题可能会很好，如果没有任何东西可以回答您的问题，您可以提出新问题。如果我理解正确，我不确定，如果你想用x 替换=，你只需这样做：x = gsub(pattern = "=",replacement = 'x',x = "=C2=EB=E0=E4=E8=EC=E8=F0,") 但我不确定这是否是你想要实现的目标。跨度>
只需在 gsub 中再添加一个斜杠，如下所示： gsub(pattern = "=",replacement = '\\x',x = "=C2=EB=E0=E4=E8=EC =E8=F0,")
这似乎不适用于问题中提供的示例。 x <- "=CA=EE=EB=EB=E5=E3=E8!";Encoding(x) <- "latin1";x 给[1] "=CA=EE=EB=EB=E5=E3=E8!"