将数值插入where语句

Question

我有以下代码可以很顺利地运行：

 sql_cag <- sprintf("SELECT * FROM `CAG_table` WHERE `comp_id` = 1");
 df <- dbGetQuery(con, sql_cag)

但是，我现在要做的是用参数替换1。像这样：

 sql_cag <- sprintf("SELECT * FROM `CAG_table` WHERE `comp_id` ='%a'", competitie_id);
 df <- dbGetQuery(con, sql_cag)

使用参数competitie_id

 competitie_id <- 1
 competitie_id <- as.numeric(competitie_id)

但是这会返回一个空的数据帧。所以某种程度上，'％a'似乎出了问题。有什么想法可能会出错？