Untitled

DROP TABLE IF EXISTS Ratings;

CREATE TABLE Ratings ( Person char(30), TheLionKing integer, Avengers_Endgame integer, Aladdin integer, Toy_Story_5 integer, Spiderman_Homecoming integer, Godzilla_King_of_the_Monsters integer );

LOAD DATA INFILE ‘C:/ProgramData/MySQL/MySQL Server 8.0/Uploads/Ratings/Ratings.csv’ INTO TABLE Ratings FIELDS TERMINATED BY ‘,’ ENCLOSED BY ‘"’ LINES TERMINATED BY ‘’ IGNORE 1 ROWS;

Select * from Ratings;

library("RODBC")

connect<-odbcConnect("mysql", uid="root", pwd="1234")

#my.data<-sqlQuery(connect, "Select * from Ratings")

#my.data