Running ‘testthat.R’ [20s/30s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(hyd1d)
  'df.gauging_data' locally stored at
  /tmp/RtmpS37pqK/df.gauging_data_latest.RDS
  was last downloaded 2023-09-27 09:31:00 CEST
  > 
  > test_check("hyd1d")
  [ FAIL 1 | WARN 1 | SKIP 0 | PASS 136 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test_getW.R:83:5'): getPegelonlineW ─────────────────────────────────
  Error in `(function (classes, fdef, mtable) 
  {
      methods <- .findInheritedMethods(classes, fdef, mtable)
      if (length(methods) == 1L) 
          return(methods[[1L]])
      else if (length(methods) == 0L) {
          cnames <- paste0("\"", vapply(classes, as.character, 
              ""), "\"", collapse = ", ")
          stop(gettextf("unable to find an inherited method for function %s for signature %s", 
              sQuote(fdef@generic), sQuote(cnames)), domain = NA)
      }
      else stop("Internal error in finding inherited methods; didn't return a unique method", 
          domain = NA)
  })(list("logical", structure("missing", package = "methods")), 
      new("standardGeneric", .Data = function (content, handler = NULL, 
          default.size = 100, depth = 150L, allowComments = TRUE, 
          asText = isContent(content), data = NULL, maxChar = c(0L, 
              nchar(content)), simplify = Strict, nullValue = NULL, 
          simplifyWithNames = TRUE, encoding = NA_character_, stringFun = NULL, 
          ...) 
      standardGeneric("fromJSON"), generic = structure("fromJSON", package = "RJSONIO"), 
          package = "RJSONIO", group = list(), valueClass = character(0), 
          signature = c("content", "handler", "default.size", "depth", 
          "allowComments", "asText", "data", "maxChar", "simplify", 
          "nullValue", "simplifyWithNames", "encoding", "stringFun"
          ), default = NULL, skeleton = (function (content, handler = NULL, 
              default.size = 100, depth = 150L, allowComments = TRUE, 
              asText = isContent(content), data = NULL, maxChar = c(0L, 
                  nchar(content)), simplify = Strict, nullValue = NULL, 
              simplifyWithNames = TRUE, encoding = NA_character_, 
              stringFun = NULL, ...) 
          stop(gettextf("invalid call in method dispatch to '%s' (no default method)", 
              "fromJSON"), domain = NA))(content, handler, default.size, 
              depth, allowComments, asText, data, maxChar, simplify, 
              nullValue, simplifyWithNames, encoding, stringFun, 
              ...)), <environment>)`: unable to find an inherited method for function 'fromJSON' for signature '"logical", "missing"'
  Backtrace:
      ▆
   1. ├─testthat::expect_equal(...) at test_getW.R:83:4
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─hyd1d::getPegelonlineW("SCHOENA", Sys.Date() - 10)
   5.   └─RJSONIO::fromJSON(w_string)
   6.     └─methods (local) `<fn>`(`<list>`, `<stndrdGn>`, `<env>`)
  
  [ FAIL 1 | WARN 1 | SKIP 0 | PASS 136 ]
  Error: Test failures
  Execution halted