library(odbc)con <- dbConnect(odbc(),                 Driver = "SQLServer",                 Server = "mysqlhost",                 Database = "mydbname",                 UID = "myuser",                 PWD = rstudioapi::askForPassword("Database password")                 Port = 1433)