miminizing example resource file and updating respetive script:

# limit example file to only one pollutant and one layer
download.file(url =
"https://wiki.52north.org/pub/Geostatistics/WPS4R/AirQualityMapping-full.RData",
destfile = "AirQualityMapping.RData")
load("AirQualityMapping.RData")
list.weights <- list.weights["o3"]
list.weights[["o3"]] <- list.weights[["o3"]][["DESN011"]]
save.image("test.RData")
load("test.RData")
# replacing AirQualityMapping.RData file with test.RData

Backup of full data file:
https://wiki.52north.org/pub/Geostatistics/WPS4R/AirQualityMapping-full.RData