Add disclaimer

MedicalCentres/app.R

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