DBI_Example

library(DBI)
conn <- dbConnect(
    drv = RMySQL::MySQL(),
    dbname = "shinydemo",
    host = "shiny-demo.csa7qlmguqrf.us-east-1.rds.amazonaws.com",
    username = "guest",
    password = "guest")


# Find City Population for USA Cities

usa_cities <- dbGetQuery(conn, "SELECT * FROM City WHERE CountryCode = 'USA';")

head(usa_cities)

##     ID         Name CountryCode     District Population
## 1 3793     New York         USA     New York    8008278
## 2 3794  Los Angeles         USA   California    3694820
## 3 3795      Chicago         USA     Illinois    2896016
## 4 3796      Houston         USA        Texas    1953631
## 5 3797 Philadelphia         USA Pennsylvania    1517550
## 6 3798      Phoenix         USA      Arizona    1321045