So, I downloaded the RDS file again from JCheng GitHub account and that fixed the issue.
For completion sake I did have to change %.% to %>% in this bit of code to get it to run in my environment (noted above).
df <- data %>%
filter(Year == input$year) %>%
select(Country, Health.Expenditure, Life.Expectancy,
Region, Population) %>%
arrange(Region)
Thanks for all the attempts to help, much appreciated!