R-编译语句时出错：FAILED：ParseException

Question

在我的代码中运行函数时出现以下错误：

Error in .local(conn, statement, ...) : execute JDBC update query failed in dbSendUpdate
(Error while compiling statement: FAILED: ParseException line 9:61
cannot recognize input near ';' '< EOF >' '< EOF >' in expression specification)

我使用以下命令调用R中的函数：

  

dbSendUpdate（hivedb，functionName（p，y））

我以前做过哪些工作，并且运行良好。我调用的函数如下所示：

functionName <- function(p,y) {
query <- paste('CREATE TABLE data1_', y, ' AS
               SELECT a.*
               FROM data2 a
               INNER JOIN data1_', y, ' b
               ON a.chain = b.chain
               AND a.platform = b.platform
               WHERE a.year_month LIKE "20', y,'%%"
               AND a.platform = "', p, '"
               ORDER BY a.year_month, a.platform, a.chain;', sep = '', collapse = NULL)
return(query)}  

它的格式与我在该工作中调用的其他函数完全相同，所以我不确定为什么会出现错误。任何帮助将不胜感激！