RtoMySQL

#Connecting to the ‘movies’ database in MySQL

library(RMySQL)

## Loading required package: DBI

moviesdb = dbConnect(MySQL(), 
  user = 'root', 
  password = 'test123', 
  dbname = 'movies', 
  host = 'localhost')

#Creating object from table in ‘movies’

dbListTables(moviesdb)

## [1] "bestof2019"

rmovies <- dbSendQuery(moviesdb, "select * from bestof2019")
moviesdata <- fetch(rmovies, n=-1)

#Let’s take a look at our data

print(moviesdata)

##     Name Aladdin Godzilla Avengers Johnwick Xmen Shazam
## 1   John       7        3        8        8    4      2
## 2    Tom       4        9        8        6    6      4
## 3   Adam       9        2        9        7    5      1
## 4    Dan       6        6        8        3    3      1
## 5   Ally      10        2        9        3    7      7
## 6 Sherri       6        4       10        4    4      1