/
server.R
68 lines (52 loc) · 2.37 KB
/
server.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
59
60
61
62
63
64
65
66
(shiny.sanitize.errors = FALSE)
load("data/pisaData3.rda")
#download.file(url = "https://docs.google.com/spreadsheets/d/1LYmlzL14xQlF-nRen9a6morTmU0FsULSoee8xWEw9fA/pub?gid=1417149183&single=true&output=csv", destfile="data/pisaDictionary.csv", 'curl')
pisaDictionary<-read.csv("data/pisaDictionary.csv", header = TRUE, sep=",")
#load("data/pisaDictionary.rda")
#download.file(url = "https://docs.google.com/spreadsheets/d/1pIBORUHzR27VIfesPASPmELb3QUxlf2rvB2ODNp9NjQ/pub?gid=0&single=true&output=csv", destfile="data/itemsDictionary.csv", 'curl')
itemsDictionary<-read.csv("data/itemsDictionary.csv", header = TRUE, sep=",")
print("loading pisa 2015")
load("../pisa2015.rda")
load("data/israel2015.rda")
print("loading pisa 2012")
load("../pisa2012b.rda")
load("data/israel2012b.rda")
# pisadb<-src_bigquery("r-shiny-1141", "pisa")
# pisa2012<- tbl(pisadb, "pisa2012")
# pisa2009<- tbl(pisadb, "pisa2009")
# pisa2006<- tbl(pisadb, "pisa2006")
oecdCountries<-read.csv("data/oecdCountries.csv", header = TRUE, sep=",")
oecdCountries<-arrange(oecdCountries, Hebrew)
oecdList<-oecdCountries$CNT
names(oecdList)<-oecdCountries$Hebrew
israelCountries<-read.csv("data/israelGroups.csv", header = TRUE, sep=",")
israelList<-israelCountries$Country
names(israelList)<-israelCountries$Hebrew
Countries<-read.csv("data/countries.csv", header = TRUE, sep=",")
countriesList<-Countries$CNT
names(countriesList)<-Countries$Hebrew
ExpertiseLevels<-read.csv("data/expertiseLevels2.csv", header = TRUE, sep=",")
ExpertiseLevelsLimits<-read.csv("data/expertiseLevelsLimits2.csv", header = TRUE, sep=",")
#download.file(url = "https://docs.google.com/spreadsheets/d/1RlZdX9bp4d-CxGd-bpR85Ye0tN5_CAdCCqnjqTC1i0E/pub?gid=439183945&single=true&output=csv", destfile="data/LevelExplenation.csv", 'curl')
LevelExplenation<-read.csv("data/LevelExplenation.csv", header = TRUE, sep=",")
groupColours <- c(
General="#b276b2",
Male="#5da5da",
Female="#f17cb0",
GeneralLow="#bc99c7",
GeneralMedium="#b276b2",
GeneralHigh="#7b3a96",
MaleHigh="#265dab",
MaleLow="#88bde6",
MaleMedium="#5da5da",
FemaleHigh="#e5126f",
FemaleLow="#f6aac9",
FemaleMedium="#f17cb0"
)
shinyServer(function(input, output, session) {
source('pisa.scores.R', local=TRUE)
source('pisa.expertise.R', local=TRUE)
source('pisa.survey.R', local=TRUE)
source('pisa.analyze.R', local=TRUE)
source('urlSearch.R', local=TRUE)
})