Running 'testthat.R' [29s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(hyd1d)
  curl: (35) schannel: next InitializeSecurityContext failed: SEC_E_ILLEGAL_MESSAGE (0x80090326) - This error usually occurs when a fatal SSL/TLS alert is received (e.g. handshake failed).
  It was not possible to download a recent copy of 
  df.gauging_data_latest.RDS
  Please try again later to obtain the latest full set
  of gauging data. In the mean time you can use hyd1d
  with a limited range of gauging data.
  
  
  > 
  > test_check("hyd1d")
  [ FAIL 4 | WARN 6 | SKIP 0 | PASS 117 ]
  
  == Failed tests ================================================================
  -- Error ('test_getW.R:47'): getPegelonlineW -----------------------------------
  <SSL_CONNECT_ERROR/GenericCurlError/error/condition>
  Error in `function (type, msg, asError = TRUE) 
  {
      if (!is.character(type)) {
          i = match(type, CURLcodeValues)
          typeName = if (is.na(i)) 
              character()
          else names(CURLcodeValues)[i]
      }
      typeName = gsub("^CURLE_", "", typeName)
      fun = (if (asError) 
          stop
      else warning)
      fun(structure(list(message = msg, call = sys.call()), class = c(typeName, 
          "GenericCurlError", "error", "condition")))
  }(35L, "error:140770FC:SSL routines:SSL23_GET_SERVER_HELLO:unknown protocol", 
      TRUE)`: error:140770FC:SSL routines:SSL23_GET_SERVER_HELLO:unknown protocol
  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. | \-RCurl::getURL(...)
   6. |   \-RCurl::curlPerform(curl = curl, .opts = opts, .encoding = .encoding)
   7. \-RCurl (local) `<fn>`(...)
  -- Error ('test_waterLevelPegelonline.R:9'): 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'): 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'): 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 6 | SKIP 0 | PASS 117 ]
  Error: Test failures
  Execution halted