-
Notifications
You must be signed in to change notification settings - Fork 1
/
credentials.R
58 lines (49 loc) · 1.46 KB
/
credentials.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
# Add the database credentials here.
options(database_server = "classroomdb.smu.edu")
options(database_port = 55433)
options(database_name = "your_dbname")
options(database_userid = "your_userid")
options(database_password = "your_password")
# database connector (edit at your own risk!)
dbConnector <- function(server, database, uid, pwd, port){
### run app locally
if(Sys.getenv('SHINY_PORT') == ""){
os <- Sys.info()['sysname']
cat("You are running the app locally on", os, "\n")
cat("You need to be in the SMU network.\n")
if(os == "Linux") {
cat("Using the FreeTDS database driver. You may need to install the driver.\n")
DBI::dbConnect(odbc::odbc(),
Driver = "FreeTDS",
Database = database,
Uid = uid,
Pwd = pwd,
Server = server,
Port = port,
TDS_Version="7.2"
)
} else if(os == "Windows") {
DBI::dbConnect(odbc::odbc(),
driver = "ODBC Driver 13 for SQL Server",
server = server,
database = database,
uid = uid,
pwd = pwd,
port = port
)
} else {
cat("Unsupported OS. Please install Windows.")
}
### run on Shinyapps.io (Uses FreeTDS)
}else{
DBI::dbConnect(odbc::odbc(),
Driver = "FreeTDS",
Database = database,
Uid = uid,
Pwd = pwd,
Server = server,
Port = port,
TDS_Version="7.2"
)
}
}