test(obs_1min): attributes

fixes #10
dimfalk · Jan 3, 2025 · 21aad3e · 21aad3e
1 parent 6e64f67
commit 21aad3e
Show file tree

Hide file tree

Showing 10 changed files with 14 additions and 14 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: HPBdata
 Title: Meteorological observations at 'Hohenpeißenberg' site (Bavaria, Germany)
-Version: 0.1.5
-Date: 2025-01-02
+Version: 0.1.6
+Date: 2025-01-03
 Authors@R: 
     person("Dimitri", "Falk", , "falk.dimitri@eglv.de", role = c("aut", "cre"))
 Description: Historical quality-assured meteorological observation data at 

diff --git a/R/data.R b/R/data.R
@@ -9,7 +9,7 @@
 #'   \item{RWH_RS_01}{xts object. Precipitation depth \code{[mm]}.}
 #' }
 #' @source <https://opendata.dwd.de/climate_environment/CDC/observations_germany/climate/1_minute/precipitation/historical/>
-#' @note Last access: 2025-01-02
+#' @note Last access: 2025-01-03
 #' @description <https://opendata.dwd.de/climate_environment/CDC/observations_germany/climate/1_minute/precipitation/DESCRIPTION_obsgermany-climate-1min-rr_en.pdf>
 #' @note License: CC BY 4.0
 #' @note Copyright: Deutscher Wetterdienst 2025
@@ -34,7 +34,7 @@
 #'   \item{RWS_10}{xts object. Precipitation depth \code{[mm]}.}
 #' }
 #' @source <https://opendata.dwd.de/climate_environment/CDC/observations_germany/climate/10_minutes/air_temperature/historical/>
-#' @note Last access: 2025-01-02
+#' @note Last access: 2025-01-03
 #' @description <https://opendata.dwd.de/climate_environment/CDC/observations_germany/climate/10_minutes/air_temperature/DESCRIPTION_obsgermany_climate_10min_air_temperature_en.pdf>
 #' @note License: CC BY 4.0
 #' @note Copyright: Deutscher Wetterdienst 2025
@@ -62,7 +62,7 @@
 #'   \item{TGK}{xts object. Minimum air temperature at 5 cm above ground \code{[°C]}.}
 #' }
 #' @source <https://opendata.dwd.de/climate_environment/CDC/observations_germany/climate/daily/kl/historical/>
-#' @note Last access: 2025-01-02
+#' @note Last access: 2025-01-03
 #' @description <https://opendata.dwd.de/climate_environment/CDC/observations_germany/climate/daily/kl/DESCRIPTION_obsgermany-climate-daily-kl_en.pdf>
 #' @note License: CC BY 4.0
 #' @note Copyright: Deutscher Wetterdienst 2025

diff --git a/data-raw/obs_10min.R b/data-raw/obs_10min.R
@@ -1,7 +1,7 @@
 ## code to prepare `obs_10min` dataset goes here
 
 library(timeseriesIO)
-#> 0.7.129
+#> 0.7.133
 
 obs_10min <- list()
 

diff --git a/data-raw/obs_1d.R b/data-raw/obs_1d.R
@@ -1,7 +1,7 @@
 ## code to prepare `obs_1d` dataset goes here
 
 library(timeseriesIO)
-#> 0.7.129
+#> 0.7.133
 
 station <- timeseriesIO::get_cdc_stations(res = "daily",
                                           par = "kl",

diff --git a/data-raw/obs_1min.R b/data-raw/obs_1min.R
@@ -1,7 +1,7 @@
 ## code to prepare `obs_1min` dataset goes here
 
 library(timeseriesIO)
-#> 0.7.129
+#> 0.7.133
 
 station <- timeseriesIO::get_cdc_stations(res = "1_minute",
                                           par = "precipitation",

diff --git a/data/obs_1min.rda b/data/obs_1min.rda
diff --git a/man/obs_10min.Rd b/man/obs_10min.Rd
diff --git a/man/obs_1d.Rd b/man/obs_1d.Rd
diff --git a/man/obs_1min.Rd b/man/obs_1min.Rd
diff --git a/tests/testthat/test-obs_1min.R b/tests/testthat/test-obs_1min.R
@@ -60,7 +60,7 @@ test_that("Attributes are unchanged.", {
 
   expect_equal(attr(obs_1min[[1]], "TZONE"), "UTC")
 
-  expect_equal(attr(obs_1min[[1]], "PARAMETER"), NULL)
+  expect_equal(attr(obs_1min[[1]], "PARAMETER"), "Niederschlagshoehe")
 
   expect_equal(attr(obs_1min[[1]], "TS_START"), structure(773043600, class = c("POSIXct", "POSIXt"), tzone = "UTC"))
 
@@ -74,7 +74,7 @@ test_that("Attributes are unchanged.", {
 
   expect_equal(attr(obs_1min[[1]], "MEAS_RESOLUTION"), 1)
 
-  expect_equal(attr(obs_1min[[1]], "MEAS_UNIT"), NULL)
+  expect_equal(attr(obs_1min[[1]], "MEAS_UNIT"), "mm")
 
-  expect_equal(attr(obs_1min[[1]], "MEAS_STATEMENT"), NULL)
+  expect_equal(attr(obs_1min[[1]], "MEAS_STATEMENT"), "sum")
 })