-
Notifications
You must be signed in to change notification settings - Fork 0
/
choices.R
95 lines (89 loc) · 3.39 KB
/
choices.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
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
#####################################
# County Profiles v0.0.1 (ui.R) #
# Author & Copyright: Bogdan Rau #
# Web: http://bogdanrau.com #
# Choice lists for selection panel #
#####################################
## Define population list (populates the "Select Population" field)
population <- list(
#"0-17 (Child & Teen)" = "0-17",
"18-64 (Adults)" = "18-64"
)
## Define year list (populates the "Select Year" field)
year <- list(
#"2011-2012" = "2011-2012",
"2012-2013" = "2012-2013"
)
## Define locationType list (populates the "Select Geography" field)
geography <- list(
# "Regions" = "Regions",
"Counties" = "Counties" # REMEMBER THE COMMA
# "SPAs (LA)" = "SPA",
# "HHSAs (SD)" = "HHSA"
)
# THE FOLLOWING LISTS ARE USED IN CONDITIONAL FIELDS
## Define the county list (populates the "Select County" CONDITIONAL field)
counties <- list(
"Alameda" = "Alameda",
# "Alpine" = "Alpine",
# "Amador" = "Amador",
"Butte" = "Butte",
# "Calaveras" = "Calaveras",
# "Colusa" = "Colusa",
"Contra Costa" = "ContraCosta",
# "Del Norte" = "DelNorte",
# "El Dorado" = "ElDorado",
# "Fresno" = "Fresno",
# "Glenn" = "Glenn",
# "Humboldt" = "Humboldt",
# "Imperial" = "Imperial",
# "Inyo" = "Inyo",
# "Kern" = "Kern",
# "Kings" = "Kings",
# "Lake" = "Lake",
# "Lassen" = "Lassen",
"Los Angeles" = "LosAngeles",
# "Madera" = "Madera",
# "Merced" = "Merced",
# "Modoc" = "Modoc",
# "Mono" = "Mono",
# "Monterey" = "Monterey",
# "Napa" = "Napa",
# "Nevada" = "Nevada",
"Orange" = "Orange" # REMEMBER THE COMMA
# "Placer" = "Placer",
# "Plumas" = "Plumas",
# "Riverside" = "Riverside",
# "Sacramento" = "Sacramento",
# "San Benito" = "SanBenito",
# "San Bernardino"="SanBernardino",
# "San Diego" = "SanDiego",
# "San Francisco" = "SanFrancisco",
# "San Joaquin" = "SanJoaquin",
# "San Luis Obispo"="SanLuisObispo",
# "San Mateo" = "SanMateo",
# "Santa Barbara" = "SantaBarbara",
# "Santa Clara" = "SantaClara",
# "Santa Cruz" = "SantaCruz",
# "Shasta" = "Shasta",
# "Sierra" = "Sierra",
# "Siskiyou" = "Siskiyou",
# "Solano" = "Solano",
# "Sonoma" = "Sonoma",
# "Stanislaus" = "Stanislaus",
# "Sutter" = "Sutter",
# "Tehama" = "Tehama",
# "Trinity" = "Trinity",
# "Tulare" = "Tulare",
# "Tuolumne" = "Tuolumne",
# "Ventura" = "Ventura",
# "Yolo" = "Yolo",
# "Yuba" = "Yuba"
)
## Define the region list (populates the "Select Region" CONDITIONAL field)
regions <- list(
"Central Coast" = "CentralCoast",
"Greater Bay Area" = "GreaterBayArea",
"Los Angeles County" = "LosAngelesCounty",
"Northern Sierra" = "NorthernSierra"
)