RMySQL getQueryに動的値を追加

Question

RMySQLパッケージのdbGetQueryのクエリに値を渡すことは可能ですか？例えば

、私は文字ベクトル中の値のセットがある場合：

df <- c('a','b','c') 

を私はそれぞれのデータベースから特定の値を引き出すために値をループにしたいです。

library(RMySQL)  
res <- dbGetQuery(con, "SELECT max(ID) FROM table WHERE columna='df[2]'") 

値に参照を追加しようとするとエラーが発生します。クエリ内のRオブジェクトから値を追加することができるかどうかを知ることができます。

Answer 1

1つのオプションは、ループ内のSQL文字列を操作することです。文字列リテラルがある瞬間、'df[2]'はR以外の文字として解釈されません。あなたのQのdfは明らかにデータフレームではないので（文字ベクトルです！）、私の答えにはあいまいさがあります。このような何かがあなたが望むことをするでしょう。

ストア数値ベクトルで出力：

require(RMySQL) 
df <- c('a','b','c') 
out <- numeric(length(df)) 
names(out) <- df 

は、今、私たちはdfの要素をループは、クエリを3回実行することができます。ループを2つの方法で設定できます。i）dfとoutの要素を参照するために使用する番号としてi、またはii）dfの各要素としてiを順番に使用する番号（つまり、b、...）。 ）。私は以下の両方のバージョンを表示します。

## Version i 
for(i in seq_along(df)) { 
    SQL <- paste("SELECT max(ID) FROM table WHERE columna='", df[i], "';", sep = "") 
    out[i] <- dbGetQuery(con, SQL) 
    dbDisconnect(con) 
} 

OR：あなたは個人的な好みに依存します使用

## Version ii 
for(i in df) { 
    SQL <- paste("SELECT max(ID) FROM table WHERE columna='", i, "';", sep = "") 
    out[i] <- dbGetQuery(con, SQL) 
    dbDisconnect(con) 
} 

。 2番目のバージョンでは、outのデータと同じ名前の出力ベクトルoutを設定する必要があります。

実際のSQLクエリが投稿したものと似ているとすれば、GROUP BY句を使用して単一のSQL文でこれを実行して、計算する前にデータをグループ化することはできませんか？max(ID)？このようなデータベースで単純なことを行うことは、はるかに迅速になるでしょう。残念ながら、私は遊ぶためにMySQLインスタンスを持っておらず、私のSQL-fuは現在弱いですから、この例を挙げることはできません。

Answer 2

また、sprintfコマンドを使用して問題を解決することもできます（これはShiny Appsを構築するときに使用します）。これらの線に沿って

df <- c('a','b','c')

res <- dbGetQuery(con, sprintf("SELECT max(ID) FROM table WHERE columna='%s'"),df())

何かが動作するはずです。