library("RPostgreSQL")
con <- dbConnect(PostgreSQL(),
user= "username",
password="password",
dbname="dbname",
host="127.0.0.1",
port="5432")
rs <- dbSendQuery(con,
"select * from tablename")
data <- fetch(rs, n = -1)
簡単ですね。