|
@@ -109,6 +109,7 @@ ui <- fillPage(title = "New Zealand GP Practice Locations 2017",
|
109
|
109
|
radioButtons("overlay", "Show overlay",
|
110
|
110
|
choices = c("None" = "None",
|
111
|
111
|
"DHB boundaries" = "DHB-boundaries")),
|
|
112
|
+ p(style="text-align: right;", "(Note: slow on first load)"),
|
112
|
113
|
hr(),
|
113
|
114
|
actionLink("closedrop", label = "close", icon = icon("close"),
|
114
|
115
|
style="float:right"),
|