dbSendQuery
またはdbGetQuery
\i
などのpsqlコマンドではなく、「SQL」部分専用です。 。
あなたの場合、最も簡単なのは確かにreadLines
を使用することです ただし、dbGetQuery
をラップします sapply
で 電話してください。
con <- dbConnect(...) #Fill this as usual
queries <- readLines("query.sql")
sapply(queries, function(x) dbGetQuery(con,x))
dbDisconnect(con)
私はこれを頻繁に使用するので、.Rprofile
にこれへのショートカットがあります ファイル:
dbGetQueries<-function(con,queries)sapply(queries,function(x)dbGetQuery(con,x))
もちろん、system
に行くこともできます 方法:
system("psql -U username -d database -h 127.0.0.1 -p 5432 -f query.sql") #Remember to use your actual username, database, host and port