14.3 Beispiel Speicherkoog

# Transform the data to long format to filter by id and display value in the app
data <- koog_day %>%
  select(daily, contains("st")) %>%
  pivot_longer(cols = contains("st"), names_to = "id")
str(data)