Create Setup and Database Connection.R

LisaLi525 · Dec 13, 2023 · ac06041 · ac06041
commit ac06041
Showing 1 changed file with 15 additions and 0 deletions.
diff --git a/Setup and Database Connection.R b/Setup and Database Connection.R
@@ -0,0 +1,15 @@
+# Clear all variables and set chunk options
+setup_environment <- function() {
+  rm(list = ls())
+  knitr::opts_chunk$set(echo = TRUE)
+}
+
+# Create a connection to the database
+connect_to_database <- function(host, port, user, password, dbname) {
+  library(RPostgreSQL)
+  library(dplyr)
+  library(dbplyr)
+
+  db_connection <- src_postgres(dbname, host = host, port = port, user = user, password = password)
+  return(db_connection)
+}