keeping discarded row from fread

Question

I\'m trying to extract Met office data using this code:

library(data.table)
met_office <- "https://www.metoffice.gov.uk/pub/data/weather/uk/climate/da