R：用\％替换字符串中的％字符

Question

我有一个字符串，我正在尝试用\％：

替换％

text1 <-  as.character("Test %")
text2  <- gsub("%", "\%", text1)
text2

但我收到一个错误： 错误：'\％'是以“”\％“

开头的字符串中无法识别的转义符

如果能帮我解决这个问题，我将不胜感激。