Передача аргументов запросам в RMySQL

Я относительно новичок в R. Я использую библиотеку RMySQL, чтобы получить некоторые данные, а затем обработать их в R. Мой код выглядит примерно так.

arg<-commandArgs(TRUE)    

rs<-dbSendQuery(con, "select owner_name, domain, count(*) as freq from playlist 
where DATE(time_last_update) between arg[1] AND arg[2] group by owner_name;")

d<-fetch(rs, n=0)
d$test<-apply(d,1,function(row) 1)
dp<-ddply(d, .(test), transform, percentile=ecdf(freq)(freq))
write.csv(dp, file="/usr/monthly_analytics/viewer_data/playlist.csv")

Я почти уверен, что это неправильно. Я вызываю R со следующими параметрами.

 Rscript test.R 2013-06-25 2012-12-25

Как и ожидалось, сервер MySQL возвращает ошибку с запросом. Как правильно передать аргумент внутри инструкции SQL из R?

Заранее спасибо.


person m_amber    schedule 25.06.2013    source источник
comment
Я не могу проверить это прямо сейчас, поэтому я не называю это ответом, но я думаю, что если вы попробуете rs <- dbSendQuery( con, paste( "SELECT owner_name, domain, count(*) AS freq FROM playlist WHERE DATE(time_last_update) BETWEEN", arg[1], "AND", arg[2], "GROUP BY owner_name;" ) ), вы станете на шаг ближе.   -  person vaettchen    schedule 25.06.2013
comment
Может здесь посмотреть? stackoverflow .com/questions/4290672/ — как указывает vaettchen, paste (или sprintf) — хороший способ.   -  person BenBarnes    schedule 25.06.2013
comment
@vaettchen, команда вставки сработала, спасибо.   -  person m_amber    schedule 25.06.2013