Remove redundant "options"

MedicalCentres/app.R

@@ -28,16 +28,6 @@ ui <- fluidPage(title = "New Zealand GP Practice Locations 2017",
             hr(),
             checkboxInput("dhboverlay", "Show DHB boundaries"),
             hr(),
-            checkboxInput("dhboverlay2", "Show DHB boundaries"),
-            # hr(),
-            # checkboxInput("dhboverlay3", "Show DHB boundaries"),
-            # hr(),
-            # checkboxInput("dhboverlay4", "Show DHB boundaries"),
-            # hr(),
-            # checkboxInput("dhboverlay5", "Show DHB boundaries"),
-            # hr(),
-            # checkboxInput("dhboverlay6", "Show DHB boundaries"),
-            hr(),
             pickerInput("dhbpicker",
                         label = "Show from DHBs",
                         choices = DHBs,