r 红移

Posted 2021-05-24

library("RPostgreSQL")

#Connect to Redshift
redshift.Connection <- dbConnect(dbDriver("PostgreSQL"), host="XXXXXXXXXXXXXXX.redshift.amazonaws.com", dbname="XXXXXXXX",
                                 user="XXXXXXX", password= "XXXXXXXXXX", port=XXXXXXXX)

query_string <- 
"select *
from table
where something = 'True';"

results <- dbGetQuery(redshift.Connection, query_string)