在格式化发送到 R 中的函数的文本字符串时,我在使用双引号时遇到问题。
考虑一个示例函数代码:
foo <- function( numarg = 5, textarg = "** Default text **" ){
print (textarg)
val <- numarg^2 + numarg
return(val)
}
使用以下输入运行时:
foo( 4, "Learning R is fun!" )
输出是:
[1] "Learning R is fun!"
[1] 20
但是当我尝试(以各种方式,如建议的 here )写“R”而不是 R 时,我得到以下输出:
> foo( 4, "Learning R is fun!" )
[1] "Learning R is fun!"
[1] 20
> foo( 4, "Learning "R" is fun!" )
Error: unexpected symbol in "funfun( 4, "Learning "R"
> foo( 4, "Learning \"R\" is fun!" )
[1] "Learning \"R\" is fun!"
[1] 20
> foo( 4, 'Learning "R" is fun!' )
[1] "Learning \"R\" is fun!"
[1] 20
使用
as.character(...)
或 dQuote(...)
按照建议 here由于参数数量不同,似乎破坏了该功能。
最佳答案
我知道的两种方式。首先是只使用单引号开始和结束字符串:
> cat( 'Learning "R" is fun!' )
Learning "R" is fun!
其次是转义双引号:
> cat( "Learning \"R\" is fun!" )
Learning "R" is fun!
请注意,这是有效的,因为我使用
cat
,旨在将字符串输出到控制台。看来你用的是print()
显示对象而不是输出它
关于r - 将包含双引号的文本字符串发送到函数,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/13449233/