v2 - renaming for publication

ui.R

@@ -1,6 +1,6 @@
 ui <- fluidPage(
 
-  title="Football league competitiveness and countries European performance",lang="en",
+  title="Does domestic league competitiveness hurt European performance?",lang="en",
 
   theme="css.css",
   useShinyjs(),
@@ -50,7 +50,7 @@ ui <- fluidPage(
   
   div(id = "contents", class = "toc",
       tags$h1(title),
-      tags$a(href = "https://medium.com/@ctpfitzsimons/football-competitiveness-european-performance-9cfdab897350?sk=c547cac15a5613265187f8124de37283", tags$strong("Click here for a link to a static version of the report")),
+      tags$a(href = "https://medium.com/@ctpfitzsimons/football-competitiveness-european-performance-9cfdab897350", tags$strong("Click here for a link to a static version of the report")),
       p(style = 'font-weight: bold; text-align: right; font-size: 1.2em;', "Scroll to begin  ▼"),
       tags$h3("Table of Contents"),
       tags$ul(