Skip to content
Peloton Take Home Assignment
library(tidyverse)
pel_classes <- read_csv("pel_classes.csv")
library(RPostgreSQL)
drv <- dbDriver("PostgreSQL")
con <- dbConnect(drv, user='user', password='password', dbname='my_database', host='host')install.packages('RPostgreSQL')
library(RPostgreSQL)
drv <- dbDriver("PostgreSQL")
con <- dbConnect(drv, user='user', password='password', dbname='my_database', host='host')Data frameas
df
variable
COPY peloton(workout_start_time,user_id,workout_id,fitness_discipline,workout_length_minutes,class_length,class_type)
FROM 'C:pel_classes.csv'
DELIMITER ‘,’
CSV HEADER;