db <- DemoDB()
db$query("select * from Artist;")
db$tables
db$tables$Artist
db$tables$Artist$head()
db$tables$Artist$all()
db$tables$Artist$sample()
db$query("select * from Artist;")
db$find_table("A*")
db$find_column("*Id*")
## Not run:
# db <- db.new(username="kermit", password="rainbowconnection",
# db$save_credentails(profile="muppetdb")
#
# db <- db.new(profile="mysql_local")
# db$query("select * from foo limit 10;")
# ## End(Not run)
Run the code above in your browser using DataLab