skip_if_http_error <- function() {
  remote_file <- "https://www.nationwide.co.uk/about/house-price-index/download-data"
  skip_if(httr::http_error(remote_file))
}

 skip_if_offline()
 skip_if_http_error()