Hi guys found a useful code snip regarding connecting to sql server on shiny. https://itsalocke.com/blog/connecting-to-sql-server-on-shinyapps.io/
is_local = Sys.getenv('SHINY_PORT') == ""
server = "lockedata.westeurope.cloudapp.azure.com"
database = "datasci"
uid = "example"
pwd = "HBBFSE"
dbConnector <- function(server, database, uid, pwd,
local=TRUE, port=1433, tds_version=7.4){
if(local){
DBI::dbConnect(odbc::odbc(),
driver = "ODBC Driver 13 for SQL Server",
server = server,
database = database,
uid = uid,
pwd = pwd
)
}else{
DBI::dbConnect(odbc::odbc(),
Driver = "FreeTDS",
Database = database,
Uid = uid,
Pwd = pwd,
Server = server,
Port = port,
TDS_Version=tds_version
)
}
}
dbConn <- dbConnector(server, database, uid, pwd, is_local)