Running ‘testthat.R’ [2s/2s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(ffstream)
  > 
  > test_check("ffstream")
  1. Error: checking BL 2 (@testx10_ewmacd.R#59) ---------------------------------
  attempt to apply non-function
  1: `$<-`(`*tmp*`, BL, value = 100) at testthat/testx10_ewmacd.R:59
  2: (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(structure("Rcpp_EwmaChangeDetector", package = "ffstream")), structure(function (x, 
         name, value) 
     standardGeneric("$<-", .Primitive("$<-")), generic = structure("$<-", package = "base"), package = "base", group = list(), valueClass = character(0), signature = c("x", 
     "value"), default = .Primitive("$<-"), skeleton = .Primitive("$<-")(x, name, value), class = structure("standardGeneric", package = "methods")), 
         <environment>)
  3: .findInheritedMethods(classes, fdef, mtable)
  4: .newSignature(classes, fdef@signature)
  5: packageSlot(classes)
  6: (function (x) 
     x$.self$finalize())(<environment>)
  
  Error in signalCondition(e) : 
    no function to return from, jumping to top level
  Calls: <Anonymous> -> .handleSimpleError -> h -> signalCondition
  testthat results ================================================================
  OK: 290 SKIPPED: 0 FAILED: 1
  1. Error: checking BL 2 (@testx10_ewmacd.R#59) 
  
  Error: testthat unit tests failed
  Execution halted