Error in readRDS("<Rds file name here>") : error reading from connection

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!