-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathglobal.R
49 lines (39 loc) · 1.63 KB
/
global.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
#Clemson DNR yearly flow app - Global
#
#Author: Ben B. Warner
#Last mod: 8/2/2016
#server: dnrproject.cloudapp.net username: ******* pwd: *******
library(shiny)
library(RODBC)
library(varhandle)
library(xts)
library(zoo)
# dbhandle <- odbcConnect("MSSQL","usgssql","Usgs2016")
# dbhandle2 <- odbcConnect("MSSQL2","usgssql","Usgs2016")
dbhandle <- odbcDriverConnect('driver={SQL Server};
server=crjtx9reyb.database.windows.net;
uid=******;
pwd=******;
database=dnr-edisto;
')
dbhandle2 <- odbcDriverConnect('driver={SQL Server};
server=crjtx9reyb.database.windows.net;
uid=*******;
pwd=*******;
database=usgssql;
')
rtusgs <- sqlQuery(dbhandle2, 'select * from [usgssql].[dbo].[usgsFlow]')
edisGageDat <- sqlQuery(dbhandle, 'select * from [dnr-edisto].[dbo].[edistoDataGage] ORDER BY date')
edisEUIFDat <- sqlQuery(dbhandle, 'select * from [dnr-edisto].[dbo].[edistoDataEUIF] ORDER BY date')
edisDesc <- unfactor(sqlQuery(dbhandle, 'select * from [dnr-edisto].[dbo].[dnr-GageTable-desc]'))
edisDesc<- edisDesc[edisDesc$Prj_ID!="",]
for(i in 1:length(edisDesc$Active)){
if(edisDesc[i,5]=="Inactive"){
edisDesc$color[i]="red"
}
else if(edisDesc[i,5]=="Active"){
edisDesc$color[i]="blue"
}
}
datList <- c("Gaged","Extended Unimpaired Flow")
odbcCloseAll()