Running 'testthat.R' [54s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(hyd1d)
  'df.gauging_data' locally stored at
  D:\temp\RtmpKcY4nz/df.gauging_data_latest.RDS
  was last downloaded 2023-04-08 03:11:50 CEST
  > 
  > test_check("hyd1d")
  [ FAIL 4 | WARN 7 | SKIP 0 | PASS 117 ]
  
  == Failed tests ================================================================
  -- Error ('test_getW.R:47:5'): getPegelonlineW ---------------------------------
  Error in `value[[3L]](cond)`: It was not possible to access gauging data from
  https://pegelonline.wsv.de
  Please try again later.
  Error in utils::download.file(url, tf, method = method, quiet = TRUE): cannot open URL 'https://www.pegelonline.wsv.de/webservices/rest-api/v2/stations/1edc5fa4-88af-47f5-95a4-0e77a06fe8b1/W/measurements.json?start=2023-04-07T00:00%2B01:00&end=2023-04-08T03:11%2B01:00'
  
  Backtrace:
      x
   1. +-testthat::expect_equal(...) at test_getW.R:47:4
   2. | \-testthat::quasi_label(enquo(object), label, arg = "object")
   3. |   \-rlang::eval_bare(expr, quo_get_env(quo))
   4. \-hyd1d::getPegelonlineW(gauging_station = "DESSAU", time = times)
   5.   \-base::tryCatch(...)
   6.     \-base (local) tryCatchList(expr, classes, parentenv, handlers)
   7.       \-base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   8.         \-value[[3L]](cond)
  -- Error ('test_waterLevelPegelonline.R:9:5'): waterLevelPegelonline: Dessau ---
  Error in ``$<-.data.frame`(`*tmp*`, "n_wls_below_w_up", value = 0L)`: replacement has 1 row, data has 0
  Backtrace:
      x
   1. \-hyd1d::waterLevelPegelonline(wldf, shiny = TRUE) at test_waterLevelPegelonline.R:9:4
   2.   +-base::`$<-`(`*tmp*`, "n_wls_below_w_up", value = `<int>`)
   3.   \-base::`$<-.data.frame`(`*tmp*`, "n_wls_below_w_up", value = `<int>`)
  -- Error ('test_waterLevelPegelonline.R:28:5'): waterLevelPegelonline: Schöna --
  Error in ``$<-.data.frame`(`*tmp*`, "n_wls_below_w_do", value = c(NA, 0L
  ))`: replacement has 2 rows, data has 1
  Backtrace:
      x
   1. \-hyd1d::waterLevelPegelonline(wldf, shiny = TRUE) at test_waterLevelPegelonline.R:28:4
   2.   +-base::`$<-`(`*tmp*`, "n_wls_below_w_do", value = `<int>`)
   3.   \-base::`$<-.data.frame`(`*tmp*`, "n_wls_below_w_do", value = `<int>`)
  -- Error ('test_waterLevelPegelonline.R:41:5'): waterLevelPegelonline: Geesthacht --
  Error in ``$<-.data.frame`(`*tmp*`, "n_wls_below_w_do", value = c(NA, 0L
  ))`: replacement has 2 rows, data has 1
  Backtrace:
      x
   1. \-hyd1d::waterLevelPegelonline(wldf, shiny = TRUE) at test_waterLevelPegelonline.R:41:4
   2.   +-base::`$<-`(`*tmp*`, "n_wls_below_w_do", value = `<int>`)
   3.   \-base::`$<-.data.frame`(`*tmp*`, "n_wls_below_w_do", value = `<int>`)
  
  [ FAIL 4 | WARN 7 | SKIP 0 | PASS 117 ]
  Error: Test failures
  Execution halted