dbSendQuery
eller dbGetQuery
er kun til "SQL"-delen, ikke psql-kommandoer såsom \i
.
I dit tilfælde er det enkleste faktisk at bruge readLines
men omslut derefter dbGetQuery
i en sapply
ring.
con <- dbConnect(...) #Fill this as usual
queries <- readLines("query.sql")
sapply(queries, function(x) dbGetQuery(con,x))
dbDisconnect(con)
Da jeg bruger dette meget ofte, har jeg en genvej til dette i min .Rprofile
fil:
dbGetQueries<-function(con,queries)sapply(queries,function(x)dbGetQuery(con,x))
Selvfølgelig kan du også gå til system
måde:
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