##-----------------------------------------------------------
## Instala o RPostgres 
install.packages("RPostgres")
## Instala pacote de leitura de senha
install.packages("getPass")

library(RPostgres)

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

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

## Define o schema a ser usado
dbSendQuery(con, "SET search_path to aula23")

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

## Carrega as 10 primeiras tuplas do conjunto resposta
primeiras_10_tuplas <- dbFetch(rs,n=10)
print(primeiras_10_tuplas)

## Carrega o restante das tuplas do conjunto resposta
tuplas_restantes <- dbFetch(rs,n=-1)
print(tuplas_restantes)

## 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)