|
@@ -28,16 +28,6 @@ ui <- fluidPage(title = "New Zealand GP Practice Locations 2017",
|
28
|
28
|
hr(),
|
29
|
29
|
checkboxInput("dhboverlay", "Show DHB boundaries"),
|
30
|
30
|
hr(),
|
31
|
|
- checkboxInput("dhboverlay2", "Show DHB boundaries"),
|
32
|
|
- # hr(),
|
33
|
|
- # checkboxInput("dhboverlay3", "Show DHB boundaries"),
|
34
|
|
- # hr(),
|
35
|
|
- # checkboxInput("dhboverlay4", "Show DHB boundaries"),
|
36
|
|
- # hr(),
|
37
|
|
- # checkboxInput("dhboverlay5", "Show DHB boundaries"),
|
38
|
|
- # hr(),
|
39
|
|
- # checkboxInput("dhboverlay6", "Show DHB boundaries"),
|
40
|
|
- hr(),
|
41
|
31
|
pickerInput("dhbpicker",
|
42
|
32
|
label = "Show from DHBs",
|
43
|
33
|
choices = DHBs,
|