R语言如何检测字符串是否含单双引号 解决grepl返回FALSE问题

问题原因 #

R中使用单引号/双引号定义字符串时，包裹内容的引号是语法层面的边界标识，不会被存入字符串本身。你运行test_object_1 <- "test_1"时，变量实际存储的内容只有test_1，外层的双引号不属于字符串内容，因此grepl匹配不到是正常结果，并非函数异常。

解决方案 #

根据你的实际需求，可以选择以下两种处理方式：

场景1：需要字符串本身包含引号 #

定义字符串时对需要存入的引号做转义处理，或者用另一种引号包裹目标内容：

• 要存入双引号：

# 写法1：双引号定义时内部双引号加反斜杠转义
test_object_1 <- "\"test_1\""
# 写法2：直接用单引号包裹带双引号的内容
test_object_1 <- '"test_1"'

# 此时匹配结果为TRUE
grepl('"', test_object_1)
# 输出 [1] TRUE

• 要存入单引号：

# 写法1：双引号包裹带单引号的内容
test_object_2 <- "'test_2'"
# 写法2：单引号定义时内部单引号加反斜杠转义
test_object_2 <- '\'test_2\''

# 此时匹配结果为TRUE
grepl("'", test_object_2)
# 输出 [1] TRUE

场景2：需要检查原有字符串的打印输出是否带引号 #

如果不需要修改原字符串定义，只是要判断对象输出时是否带边界引号，可以用deparse()函数处理后再匹配：

test_object_1 <- "test_1"
grepl('"', deparse(test_object_1))
# 输出 [1] TRUE

内容的提问来源于stack exchange，提问作者Mel