写了一段有R语言程序并做成脚本文件，其中有如下部分，如果我单步执行这些代码就能够顺利执行，可是如果使用source（）函数执行脚本，就会报错。
出错部分：
if(any(is.element(content,text)))
{
text1<-paste(title1,text,sep="。")
}
其中content，title1，和text全都是character类型的向量且存储的是中文文本

如：content里面是："人民网济南9月10日电（刘振男）9月10日上午，山东省政府新闻办公室举行新闻发布会，山东省委宣传部、山东省国资委、山东省工商局、山东省质监局负责同志就山东“厚道鲁商”倡树行动有关情况做了介绍。
山东省委宣传部副部长王红勇在发布会上表示，开展..."
其他两个向量也类似，每个向量里面一段文字（及只有一个元素），不存在多个元素

报错：
invalid multibyte character in parser at line 47
In addition: Warning message:
In grepl("\n", lines, fixed = TRUE) :input string 47 is invalid in this locale
代码中第47行就是：text1<-paste(title1,text,sep="。")