library(RPostgreSQL)

## Carrega o driver PostgreSQL
drv <- dbDriver("PostgreSQL")

## Abre uma conexao
con <- dbConnect(drv, host="postgresql.linux.ime.usp.br", port="5432", dbname="login_rede_linux", user="login_rede_linux", password="senha")

## Submete uma consulta SQL
rs <- dbSendQuery(con, "select * from produto")

## Carrega as 10 primeiras tuplas do conjunto resposta
print(fetch(rs,n=10))

## Submete e executa uma consulta SQL, armazenando o resultado (data frame) em uma variavel
dados <- dbGetQuery(con, "select * from pc")

## Cria uma nova tabela com os dados armazenados na variavel
dbWriteTable(con, "copia_pc", dados)

## Fecha a conexao com o BD
dbDisconnect(con)

## Libera os recursos usados pelo driver
dbUnloadDriver(drv)