用scan()读取转义字符

Question

我看过关于这方面的现有问题，但没有帮助。我试图从文本文件中读取SQL查询，其中包含引号和正则表达式。我找不到从扫描字符串中获得\'字符的方法。我试过：

> scan(text=" 'H' ", what="character")
Read 1 item
[1] "H"
There were 50 or more warnings (use warnings() to see the first 50)
> scan(text=" \'H\' ", what="character")
Read 1 item
[1] "H"
> scan(text=" \\'H\\' ", what="character")
Read 1 item
[1] "\\'H\\'"

我希望我的scan()的结果是\'H\'，即在调用cat时输出'H'的字符串。换句话说，字符串x会产生什么？

> scan(text=x, what="character")
Read 1 item
[1] "\'H\'"

我原以为第二个例子可以做到这一点，但事实并非如此。或者，除了scan()之外，还有其他方法不对它读取的字符串进行无声的更改吗？

(类似地，对于正则表达式，我希望scan()在catted生成'^\\d+'时返回一个字符串。)

Answer 1

更改第一次调用，以包括对quote参数的调整。

x <- scan(text = " 'H' ", what = "", quote = "")
x
# [1] "'H'"
cat(x)
# 'H'

设置quote = ""表示没有引用字符，因此引号按原样读取。