# See link below
aw <- dbConnect(RSQLServer::SQLServer(), server = "mhknbn2kdz.database.windows.net",
database = 'AdventureWorks2012',
properties = list(user = "sqlfamily", password = "sqlf@m1ly"))
dbListTables(aw)
Run the code above in your browser using DataLab