使用 RMySQL 创建存储过程

Question

背景：我正在开发一个 rscript，它从 mysql 数据库中提取数据，执行逻辑回归，然后将预测插入回数据库中。我希望整个系统都包含在脚本中，以防数据库发生故障。这包括脚本依赖于聚合后端数据的所有 mysql 存储过程，因为这些存储过程将在此类数据库故障中被删除。

问题：我在从 R 脚本创建存储过程时遇到问题。我正在运行以下命令：

mySQLDriver <- dbDriver("MySQL")
connect <- dbConnect(mySQLDriver, group = connection)
query <- 
"
DROP PROCEDURE IF EXISTS Test.Tester;
DELIMITER //
CREATE PROCEDURE Test.Tester()
BEGIN
/***DO DATA AGGREGATION***/
END // 
DELIMITER ;
"
sendQuery <- dbSendQuery(connect, query)
dbClearResult(dbListResults(connect)[[1]])
dbDisconnect(connect)

然而，我收到以下似乎涉及 DELIMITER 更改的错误。

Error in .local(conn, statement, ...) : 
  could not run statement: You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'DELIMITER //
CREATE PROCEDURE Test.Tester()
BEGIN
/***DO DATA AGGREGATION***/
EN' at line 2

我做了什么：我花了很多时间寻找答案，但一无所获。我错过了什么？

Answer 1

只是想跟进这串 cmets。感谢您对这个问题的看法。我有几个 Python 脚本需要具有此功能，我开始研究 Python 的相同主题。我发现this question 表明了答案。问题说明：

“DELIMITER 命令是内置的 MySQL shell 客户端，只有该程序（和 MySQL 查询浏览器）才能识别。如果直接通过 API 执行 SQL 语句，则不需要使用 DELIMITER。

DELIMITER 的目的是帮助您避免在 CREATE FUNCTION 语句的终止时出现歧义，因为语句本身可以包含分号字符。这在 shell 客户端中很重要，默认情况下，分号终止 SQL 语句。您需要将语句终止符设置为其他字符才能提交函数（或触发器或过程）的主体。”

因此以下代码将在 R 中运行：

mySQLDriver <- dbDriver("MySQL")
connect <- dbConnect(mySQLDriver, group = connection)
query <- 
"
CREATE PROCEDURE Test.Tester()
BEGIN
/***DO DATA AGGREGATION***/
END
"
sendQuery <- dbSendQuery(connect, query)
dbClearResult(dbListResults(connect)[[1]])
dbDisconnect(connect)