R/connection_reddit.R

In fdrennan/ndexr-reddit: Powers the NDEXR Platform

#' connection_reddit
#' @description Given a .Renviron file, connects to reddit
#' @example
#' \dontrun {
#' connection_reddit()
#' }
#'
#' @export connection_reddit
connection_reddit <- function() {
  praw <- import("praw")
  reddit_con <- praw$Reddit(
    client_id = Sys.getenv("REDDIT_CLIENT"),
    client_secret = Sys.getenv("REDDIT_AUTH"),
    user_agent = Sys.getenv("USER_AGENT"),
    username = Sys.getenv("USERNAME"),
    password = Sys.getenv("PASSWORD")
  )
}