#install.packages("RPostgreSQL")
require("RPostgreSQL")

# Guardar el Password para poder posteriormente eliminarlo
pw <- { "Clave_Secreta"}

# Leer el driver de PostgreSQL
drv <- dbDriver("PostgreSQL")

# Crear la conexion con la base de datos
con <- dbConnect(drv, dbname = "Nombre_de_BBDD",
                 host = "localhost", port = 5432,
                 user = "postgres", password = pw)

# Eliminar el Password
rm(pw) 

# Chequear que no existe la tabla de la base de datos
dbExistsTable(con, "tabla_de_personal")
# FALSE

# Generar datos del objeto persona
set.seed(10)
n <- 100
edad <- mvrnorm(n=n, mu=40, Sigma=20 )
peso <- mvrnorm(n=n, mu=70, Sigma=20,tol = edad)
altura <- mvrnorm(n=n, mu=170, Sigma=20,tol = peso)
sexo <- c(rep("M",0.45*n),rep("H",0.55*n))
sexo <- sample(sexo, n) 
datos <- data.frame(edad, peso, altura, sexo) 

# Escribir los datos de personas en una nueva tabla de base de datos
dbWriteTable(con, "tabla_de_personal", 
             value = datos, append = TRUE, row.names = FALSE)

# Extraer datos de la base de datos
datos_postgres <- dbGetQuery(con, "SELECT * from tabla_de_personal")

Nota: Comando para importar bbdd de gran tamaño

psql -h localhost -p 5432 -d <nombre_bbdd> -f <ruta_fichero_backup.sql> -U postgres