# get sample databases from: http://chinookdatabase.codeplex.com/

library(dplyr)
mydb <- src_sqlite("Chinook_sqlite.sqlite")
src_tbls(mydb)

##  [1] "Album"         "Artist"        "Customer"      "Employee"    
##  [5] "Genre"         "Invoice"       "InvoiceLine"   "MediaType"    
##  [9] "Playlist"      "PlaylistTrack" "Track"