Add information about recent rule changes

app.R

@@ -85,6 +85,15 @@ ui <- navbarPage("Gender Reassignment Surgery", collapsible = TRUE,
   ),
   # About Page ----
   tabPanel("About",
+           h1("Important update"),
+           p("The following information and app was created prior to a change",
+             "in the funding rules for GRS made by the government in mid-2018.",
+             "This app can be used as a resource to project out what would have",
+             "happened had the change not taken place, but cannot in its present",
+             "form take into account the changes. For more information read",
+             a(href="https://www.newsroom.co.nz/@pro/2018/10/15/277680/gender-reassignment-surgery-cap-lifted?amp=1", "this article"), "at newsroom. The rest of this page has",
+             "been left as-is."),
+           hr(),
            p("Since a review in 2003 the New Zealand Ministry of Health",
              "has nominally funded \"MtF\" GRS (i.e. trans women's vaginoplasty) at",
              "a rate of three every two years, and \"FtM\" GRS (trans men's phalloplasty)",