Rickidon Singh, Data 607 Assignment 2

Load the required packages

library(DBI)
library(RMySQL)

Establish a connection

con <- dbConnect(MySQL(),
                 user="root", password="Database123",
                 dbname="movies", host="localhost")

Let’s view the existing tables

dbListTables(con)
## [1] "Top6movies"

SQL Table displayed

sql_dataset <- "SELECT * from Top6movies"
my_dataset <- dbGetQuery(con, sql_dataset)
my_dataset
##   idTop6movies Critic Logan Big_Sick Dunkirk Wonder_Woman Despicable_Me3
## 1            1     HK     3        2       4            5              5
## 2            2     SS     5        4       5            3              4
## 3            3     SA     4        2       5            4              5
## 4            4     Mo     2        3       4            5              5
## 5            5     Po     2        3       4            4              3
##   Beauty_Beast
## 1            5
## 2            3
## 3            3
## 4            5
## 5            4

Disconeecting Database connection

dbDisconnect(con)
## [1] TRUE

Summary

Through this excercise, I was able to connect to a MYSQL server using R and display a relational database via SQL queries.