R function to download data from the DWD (german weather service)