mysql - 在 R 中用查询替换表达式参数

Question

我有一个表达式 max(51)。我想用数据库中与此 ID 相关的值替换表达式中的参数，即 51。所以我替换后的表达式如下:

max(dbGetQuery(con,"SELECT VALUE FROM STUD WHERE ID=51"))

其中 con 是 MySQL 连接对象。我尝试了以下方法从表达式中提取参数

PARAMETER <- gsub(".*\\((.*)\\)$", "\\1", "MAX(51)");

现在我的最终表达式将变成这样:

max(dbGetQuery(con,"SELECT VALUE FROM STUD WHERE ID=PARAMETER"));

那么如何在 R 中完成这种替换呢？这只是一个操作数表达式。是否可以使用更复杂的表达式，例如

max(51)+min(52)-53

谢谢..

Answer 1

我通过以下方式实现了这一目标:

operand <- "max(51)";
PARAMETER <- gsub(".*\\((.*)\\)$", "\\1", operand);
QUERY=gsub("PARAMETER",PARAMETER,"SELECT VALUE FROM STUD WHERE ID='PARAMETER'");
Final_SubExpression <- gsub(PARAMETER,"dbGetQuery(con,QUERY)",operand);
Result <- eval(parse(text=Final_SubExpression));
Result;

或者

operand <- "max(51)";
PARAMETER <- gsub(".*\\((.*)\\)$", "\\1", operand);
QUERY=sprintf("SELECT VALUE FROM STUD WHERE ID = '%s'", PARAMETER);
Final_SubExpression <- gsub(PARAMETER,"dbGetQuery(con,QUERY)",operand);
Result <- eval(parse(text=Final_SubExpression));
Result;