LearnDC/lea_json_build.R at master · DC-OSSE/LearnDC · GitHub

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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162

setwd("U:/REPORT CARD/GIT Report Cards/ReportCards")

source("./imports/tomkit.R")
source("./imports/ODBC.R")
source("./school_functions.R")
source("./generalized.R")
source("./lea_functions.R")

library(dplyr)

school_dir <- sqlFetch(dbrepcard, 'schooldir_sy1314')

lea_dir <- unique(school_dir[c("lea_code","lea_name")])

# lea codes need to be four digits and in quotes
lea_dir$lea_code <- sprintf("%04d", lea_dir$lea_code)

subDir <- "lea_report"
mainDir <- "./data/"

dir.create(file.path(mainDir, subDir), showWarnings = FALSE)
setwd(file.path(mainDir, subDir))

for(i in 1:nrow(lea_dir)){
    org_type <- "lea"
    lea_name <- lea_dir$lea_name[i]
    lea_code <- lea_dir$lea_code[i]
    cat(lea_name, lea_code, sep=" ", fill=TRUE)
    newfile <- file(paste(org_type, '_', lea_code, '.JSON', sep=""), , encoding="UTF-8")

    sink(newfile)
    cat('{', fill=TRUE)
    level <- 1
    cat(indent(level),'"timestamp": "',date(),'",', sep="", fill=TRUE)
    cat(indent(level),'"org_type": "',org_type, '",', sep="", fill=TRUE)
    cat(indent(level),'"org_name": "',lea_name,'",', sep="", fill=TRUE)

    cat(indent(level),'"report_card": {', sep="", fill=TRUE)
    up(level)
    cat(indent(level),'"sections": [', sep="", fill=TRUE)
    up(level)
    {
        ## Assessment
        cat(indent(level),'{', sep="", fill=TRUE)
        up(level)
        cat(indent(level), '"id": "dccas",', sep="", fill=TRUE)
        cat(indent(level), '"data": [', sep="", fill=TRUE)
        cat(LeaCasChunk(lea_code, level+1))
        cat('\n',indent(level), ']', sep="", fill=TRUE)
        down(level)
        cat(indent(level),'},', sep="", fill=TRUE)
    }
    {
        ## AMOs
        cat(indent(level),'{', sep="", fill=TRUE)
        up(level)
        cat(indent(level), '"id": "amo_targets",', sep="", fill=TRUE)
        cat(indent(level), '"data": [', sep="", fill=TRUE)
        cat(ExAMOs(lea_code, level+1, "lea"))
        cat('\n',indent(level), ']', sep="", fill=TRUE)
        down(level)
        cat(indent(level),'},', sep="", fill=TRUE)
    }
    {
        ## Highly Qualified Teacher Status
        cat(indent(level),'{', sep="", fill=TRUE)
        up(level)
        cat(indent(level), '"id": "hqt_status",', sep="", fill=TRUE)

        cat(indent(level), '"data":', LeaHQTStatus(lea_code), sep="", fill=TRUE)
        down(level)
        cat(indent(level),'},', sep="", fill=TRUE)
    }
    {
        ## Graduation
        cat(indent(level),'{', sep="", fill=TRUE)
        up(level)
        cat(indent(level), '"id": "graduation",', sep="", fill=TRUE)
        cat(indent(level), '"data": [', sep="", fill=TRUE)
        cat(ExGraduation(lea_code, level+1, "lea"), fill=TRUE)
        cat('\n',indent(level), ']', sep="", fill=TRUE)
        down(level)
        cat(indent(level),'},', sep="", fill=TRUE)
    }
    # {
    #     #College Enrollment
    #     cat(indent(level),'{', sep="", fill=TRUE)
    #     up(level)
    #     cat(indent(level), '"id": "college_enroll",', sep="", fill=TRUE)
    #     cat(indent(level), '"data": [', sep="", fill=TRUE)
    #     cat(LeaCollegeEnroll(lea_code, level+1), fill=TRUE)
    #     cat(indent(level), ']', sep="", fill=TRUE)
    #     down(level)
    #     cat(indent(level),'},', sep="", fill=TRUE)
    # }
    {
        #Enrollment
        cat(indent(level),'{', sep="", fill=TRUE)
        up(level)
        cat(indent(level), '"id": "enrollment",', sep="", fill=TRUE)
        cat(indent(level), '"data": [', sep="", fill=TRUE)
        cat(ExEnrollChunk(lea_code, level+1, "lea"), fill=TRUE)
        cat(indent(level), ']', sep="", fill=TRUE)
        down(level)
        cat(indent(level),'},', sep="", fill=TRUE)
    }
    {
        ## Median Growth Percentile ##
        cat(indent(level),'{', sep="", fill=TRUE)
        up(level)
        cat(indent(level), '"id": "mgp_scores",', sep="", fill=TRUE)
        cat(indent(level), '"data": [', sep="", fill=TRUE)
        cat(LeaMGPResult(lea_code, level+1), fill=TRUE)
        cat(indent(level), ']', sep="", fill=TRUE)
        down(level)
        cat(indent(level),'},', sep="", fill=TRUE)
    }
    {
        ## College Readiness##
        cat(indent(level),'{', sep="", fill=TRUE)
        up(level)
        cat(indent(level), '"id": "college_readiness",', sep="", fill=TRUE)
        cat(indent(level), '"data": [', sep="", fill=TRUE)
        cat(LeaCollegeReadiness(lea_code, level+1), fill=TRUE)
        cat(indent(level), ']', sep="", fill=TRUE)
        down(level)
        cat(indent(level),'},', sep="", fill=TRUE)
    }
    {
        ## SPED Testing
        cat(indent(level),'{', sep="", fill=TRUE)
        up(level)
        cat(indent(level), '"id": "special_ed",', sep="", fill=TRUE)
        cat(indent(level), '"data": [', sep="", fill=TRUE)
        cat(LeaSPEDChunk(lea_code, level+1), fill=TRUE)
        cat(indent(level), ']', sep="", fill=TRUE)
        down(level)
        cat(indent(level),'},', sep="", fill=TRUE)
    }
    {
        ## SPED APR URL
        cat(indent(level),'{', sep="", fill=TRUE)
        up(level)
        cat(indent(level), '"id": "special_ed_apr_url",', sep="", fill=TRUE)
        cat(indent(level), '"data": [', sep="", fill=TRUE)
        cat(LeaSpedAprUrl(lea_code, level+1), fill=TRUE)
        cat(indent(level), ']', sep="", fill=TRUE)
        down(level)
        cat(indent(level),'}', sep="", fill=TRUE)
    }
    down(level)
    cat(indent(level), ']', sep="", fill=TRUE)
    down(level)
    cat(indent(level), '}', fill=TRUE)

    cat('}', fill=TRUE)

    sink()
    close(newfile)

}