r - 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' に問題があるようです。これがうまくいかない可能性のある考えはありますか？