Expanded Jena weather data to 1990-2023

data/regions/extract_weather_data.R

@@ -9,13 +9,13 @@
 library(tidyverse)
 
 ## replace this with the correct file name
-weatherfile = "daily_weather_jena_dwd/produkt_klima_tag_18210101_20221231_02444.txt"
+weatherfile = "produkt_klima_tag_18210101_20231231_02444.txt"
 
 data = read.table(weatherfile, sep=";", header=T)
 
 weather = data %>%
-    ## drop values before 2000 to save space
-	filter(MESS_DATUM>=20000101) %>%
+    ## drop values before 1990 to save space
+	filter(MESS_DATUM>=19900101) %>%
     ## select relevant variables and convert place-holder values to NA
     select(MESS_DATUM, FM, RSK, SDK, VPM, TMK, TXK, TNK) %>%
     mutate(date=MESS_DATUM, MESS_DATUM=NULL,
@@ -28,4 +28,4 @@ weather = data %>%
            min_temperature=na_if(TNK, -999), TNK=NULL)
 
 ## replace with the desired file name
-write.csv(weather, file="weather_jena.csv", row.names=FALSE)
+write.csv(weather, file="weather.csv", row.names=FALSE)