library(RPostgreSQL)

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

## Abre uma conexao
con <- dbConnect(drv, host="data.ime.usp.br", port="23001", dbname="bd_123456", user="u123456", password="123456")

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

## Recupera todos as tuplas do conjunto resposta
fetch(rs,n=-1)

## 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, "CopiaPC", dados)

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

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