fixed typo :-)

shiny/app.R

@@ -162,7 +162,7 @@ ui <- fluidPage(
          tags$a(href = "https://twitter.com/tom_rushby","(@tom_rushby)"),
          "for the ",tags$a(href = "https://energy.soton.ac.uk/","Energy and Climate Change Division"),
          tags$a(href = "https://twitter.com/EnergySoton","(@EnergySoton)"),"at the University of Southampton.",
-         "Emissions estimates from the Department for Business, Energy and Industrial Strategy (BIES), are used and are available at ",
+         "Emissions estimates from the Department for Business, Energy and Industrial Strategy (BEIS), are used and are available at ",
          tags$a(href = "https://data.gov.uk/dataset/723c243d-2f1a-4d27-8b61-cdb93e5b10ff/emissions-of-carbon-dioxide-for-local-authority-areas","data.gov.uk"),
          " (2018 estimates, last updated 25 June 2020).",
          "Local authority boundaries (2018) are provided by ", tags$a(href = "https://geoportal.statistics.gov.uk/","ONS Open Geography Portal"),"."),
@@ -336,4 +336,4 @@ server <- function(input, output, session) {
 }
 
 
-shinyApp(ui = ui, server = server)
\ No newline at end of file
+shinyApp(ui = ui, server = server)