Redshift Wrapper & Credentials

redshift_credentials.r

# Install the Redshift R library:
# https://github.com/pingles/redshift-r
# install.packages("~/Downloads/redshift-r-master", dependencies = T, repos = NULL, type = "source")

library(redshift)

redshift <- redshift.connect("jdbc:postgresql://REDSHIFT_DB:5439/DB_NAME", "LOGIN", "PASSWORD")

# Example Query:
data <- dbGetQuery(redshift, "SELECT COUNT(*) FROM table")

# Function to use a .sql file directly, handy if you're using version control for queries:
redshift_query_from_sql <- function (query_file) {
  dbGetQuery(redshift,
    paste(
      scan(query_file,
        what = "character",
        sep = '\n'
    ),
    collapse = '\n')
  )
}

# Example:
# data <- redshift_query_from_sql("file_with_sql.sql")