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 @@

progress of
COVID-19 vaccination in the UK.

-
@@ -149,7 +148,7 @@
England
{{eng_vaccines_pc}}
-
% of the population
+
% of the adult population
{{eng_vaccines_no}} Vaccines
@@ -157,7 +156,7 @@
Wales
{{wal_vaccines_pc}}
-
% of the population
+
% of the adult population
{{wal_vaccines_no}} Vaccines
@@ -165,7 +164,7 @@
Scotland
{{sco_vaccines_pc}}
-
% of the population
+
% of the adult population
{{sco_vaccines_no}} Vaccines
@@ -173,7 +172,7 @@
Northern Ireland
{{ni_vaccines_pc}}
-
% of the population
+
% of the adult population
{{ni_vaccines_no}} Vaccines
@@ -280,7 +279,7 @@

Spreading Hope

App Data Refresh

-

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: