diff --git a/server.R b/server.R index d393119..1ee5bf0 100644 --- a/server.R +++ b/server.R @@ -1,5 +1,5 @@ server <- function(input, output) { - + # Latest Date ---------------------------------------------------------- latest <- format(as.Date(max(dataset$date)), format = "%d/%m/%Y") output$latest_date <- renderText({ @@ -7,10 +7,10 @@ server <- function(input, output) { }) # Populations (https://www.ons.gov.uk/peoplepopulationandcommunity/populationandmigration/populationestimates) - eng_pop <- 56287000 - wal_pop <- 3152900 - sco_pop <- 5463300 - ni_pop <- 1893700 + eng_pop <- 44263393 + wal_pop <- 2522940 + sco_pop <- 4434138 + ni_pop <- 1452962 uk_pop <- sum(eng_pop,wal_pop,sco_pop,ni_pop) uk_total <- sum(dataset$cumPeopleVaccinatedFirstDoseByPublishDate [dataset$date==max(dataset$date)]) diff --git a/www/index.html b/www/index.html index 75fec63..f732cb5 100644 --- a/www/index.html +++ b/www/index.html @@ -99,7 +99,6 @@
The data is refreshed daily. However, depending on when you view the app, it is possible that the data is one/two days old as the latest data has not yet been published.
Population data is estimated from the Office for National Statistics (ONS). Currently using the following figures:
+
The data is refreshed daily. However, depending on when you view the app, it is possible that the data is one/two days old as the latest data has not yet been published.
Population data is estimated from the Office for National Statistics 2019 Mid-year estimate (ONS) for adults (18+). Currently using the following figures: