* using log directory ‘/data/gannet/ripley/R/packages/tests-LENGTH1/dmacs.Rcheck’
* using R Under development (unstable) (2022-04-03 r82074)
* using platform: x86_64-pc-linux-gnu (64-bit)
* using session charset: UTF-8
* using option ‘--no-stop-on-test-error’
* checking for file ‘dmacs/DESCRIPTION’ ... OK
* checking extension type ... Package
* this is package ‘dmacs’ version ‘0.1.0’
* package encoding: UTF-8
* checking package namespace information ... OK
* checking package dependencies ... OK
* checking if this is a source package ... OK
* checking if there is a namespace ... OK
* checking for executable files ... OK
* checking for hidden files and directories ... OK
* checking for portable file names ... OK
* checking for sufficient/correct file permissions ... OK
* checking whether package ‘dmacs’ can be installed ... OK
* checking package directory ... OK
* checking DESCRIPTION meta-information ... OK
* checking top-level files ... OK
* checking for left-over files ... OK
* checking index information ... OK
* checking package subdirectories ... OK
* checking R files for non-ASCII characters ... OK
* checking R files for syntax errors ... OK
* checking whether the package can be loaded ... OK
* checking whether the package can be loaded with stated dependencies ... OK
* checking whether the package can be unloaded cleanly ... OK
* checking whether the namespace can be loaded with stated dependencies ... OK
* checking whether the namespace can be unloaded cleanly ... OK
* checking loading without being on the library search path ... OK
* checking use of S3 registration ... OK
* checking dependencies in R code ... OK
* checking S3 generic/method consistency ... OK
* checking replacement functions ... OK
* checking foreign function calls ... OK
* checking R code for possible problems ... OK
* checking Rd files ... OK
* checking Rd metadata ... OK
* checking Rd line widths ... OK
* checking Rd cross-references ... OK
* checking for missing documentation entries ... OK
* checking for code/documentation mismatches ... OK
* checking Rd \usage sections ... OK
* checking Rd contents ... OK
* checking for unstated dependencies in examples ... OK
* checking LazyData ... NOTE
  'LazyData' is specified without a 'data' directory
* checking examples ... OK
* checking for unstated dependencies in ‘tests’ ... OK
* checking tests ...
  Running ‘testthat.R’ [28s/37s]
 [29s/38s] ERROR
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(dmacs)
  > 
  > test_check("dmacs")
   ----------- FAILURE REPORT -------------- 
   --- failure: length > 1 in coercion to logical ---
   --- srcref --- 
  : 
   --- package (from environment) --- 
  MplusAutomation
   --- call from context --- 
  extractCovarianceCoverage(outfiletext, curfile)
   --- call from argument --- 
  length(covcoverageSubsections) == 0 || is.na(covcoverageSubsections)
   --- R stacktrace ---
  where 1: extractCovarianceCoverage(outfiletext, curfile)
  where 2: doTryCatch(return(expr), name, parentenv, handler)
  where 3: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  where 4: tryCatchList(expr, classes, parentenv, handlers)
  where 5: tryCatch(extractCovarianceCoverage(outfiletext, curfile), error = function(e) {
      message("Error extracting COVARIANCE COVERAGE OF DATA in output file: ", 
          curfile)
      print(e)
      return(list())
  })
  where 6: MplusAutomation::readModels(fit)
  where 7: mplus_dmacs("mplus1001.out", RefGroup = "GROUP2")
  where 8: eval_bare(expr, quo_get_env(quo))
  where 9: quasi_label(enquo(object), label, arg = "object")
  where 10 at testdmacs.R#113: expect_equal(mplus_dmacs("mplus1001.out", RefGroup = "GROUP2"), 
      mplus1001, tolerance = 1e-05)
  where 11: eval(code, test_env)
  where 12: eval(code, test_env)
  where 13: withCallingHandlers({
      eval(code, test_env)
      if (!handled && !is.null(test)) {
          skip_empty()
      }
  }, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, 
      message = handle_message, error = handle_error)
  where 14: doTryCatch(return(expr), name, parentenv, handler)
  where 15: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  where 16: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  where 17: doTryCatch(return(expr), name, parentenv, handler)
  where 18: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), 
      names[nh], parentenv, handlers[[nh]])
  where 19: tryCatchList(expr, classes, parentenv, handlers)
  where 20: tryCatch(withCallingHandlers({
      eval(code, test_env)
      if (!handled && !is.null(test)) {
          skip_empty()
      }
  }, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, 
      message = handle_message, error = handle_error), error = handle_fatal, 
      skip = function(e) {
      })
  where 21: test_code(desc, code, env = parent.frame(), reporter = reporter)
  where 22 at testdmacs.R#108: test_that("mplus_dmacs behaves appropriately", {
      load("mplussamples.RData")
      expect_equal(mplus_dmacs("mplus1001.out", RefGroup = "GROUP2"), 
          mplus1001, tolerance = 1e-05)
      expect_equal(mplus_dmacs("mplus1011.out", RefGroup = "GROUP2"), 
          mplus1011, tolerance = 1e-05)
      expect_equal(mplus_dmacs("mplus1101.out", RefGroup = "GROUP2"), 
          mplus1101, tolerance = 1e-05)
      expect_equal(mplus_dmacs("mplus1110.out", RefGroup = "GROUP2"), 
          mplus1110, tolerance = 1e-05)
  })
  where 23: eval(code, test_env)
  where 24: eval(code, test_env)
  where 25: withCallingHandlers({
      eval(code, test_env)
      if (!handled && !is.null(test)) {
          skip_empty()
      }
  }, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, 
      message = handle_message, error = handle_error)
  where 26: doTryCatch(return(expr), name, parentenv, handler)
  where 27: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  where 28: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  where 29: doTryCatch(return(expr), name, parentenv, handler)
  where 30: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), 
      names[nh], parentenv, handlers[[nh]])
  where 31: tryCatchList(expr, classes, parentenv, handlers)
  where 32: tryCatch(withCallingHandlers({
      eval(code, test_env)
      if (!handled && !is.null(test)) {
          skip_empty()
      }
  }, expectation = handle_expectation, skip = handle_skip, warning = handle_warning, 
      message = handle_message, error = handle_error), error = handle_fatal, 
      skip = function(e) {
      })
  where 33: test_code(NULL, exprs, env)
  where 34: source_file(path, child_env(env), wrap = wrap)
  where 35: FUN(X[[i]], ...)
  where 36: lapply(test_paths, test_one_file, env = env, wrap = wrap)
  where 37: doTryCatch(return(expr), name, parentenv, handler)
  where 38: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  where 39: tryCatchList(expr, classes, parentenv, handlers)
  where 40: tryCatch(code, testthat_abort_reporter = function(cnd) {
      cat(conditionMessage(cnd), "\n")
      NULL
  })
  where 41: with_reporter(reporters$multi, lapply(test_paths, test_one_file, 
      env = env, wrap = wrap))
  where 42: test_files(test_dir = test_dir, test_package = test_package, 
      test_paths = test_paths, load_helpers = load_helpers, reporter = reporter, 
      env = env, stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning, 
      wrap = wrap, load_package = load_package)
  where 43: test_files(test_dir = path, test_paths = test_paths, test_package = package, 
      reporter = reporter, load_helpers = load_helpers, env = env, 
      stop_on_failure = stop_on_failure, stop_on_warning = stop_on_warning, 
      wrap = wrap, load_package = load_package, parallel = parallel)
  where 44: test_dir("testthat", package = package, reporter = reporter, 
      ..., load_package = "installed")
  where 45: test_check("dmacs")
  
   --- value of length: 4 type: logical ---
  [1] FALSE FALSE FALSE FALSE
   --- function from context --- 
  function (outfiletext, filename) 
  {
      covcoverageSection <- getSection("^COVARIANCE COVERAGE OF DATA$", 
          outfiletext)
      if (is.null(covcoverageSection)) {
          return(list())
      }
      covcoverageList <- list()
      covcoverageSubsections <- getMultilineSection("PROPORTION OF DATA PRESENT( FOR [\\w\\d\\s\\.,_]+)*", 
          covcoverageSection, filename, allowMultiple = TRUE)
      matchlines <- attr(covcoverageSubsections, "matchlines")
      if (length(covcoverageSubsections) == 0 || is.na(covcoverageSubsections)) {
          message("No PROPORTION OF DATA PRESENT sections found within COVARIANCE COVERAGE OF DATA output.")
          return(covcoverageList)
      }
      else if (length(covcoverageSubsections) > 1) {
          groupNames <- make.names(gsub("^\\s*PROPORTION OF DATA PRESENT( FOR ([\\w\\d\\s\\.,_]+))*\\s*$", 
              "\\2", covcoverageSection[matchlines], perl = TRUE))
      }
      else {
          groupNames <- ""
      }
      for (g in 1:length(covcoverageSubsections)) {
          targetList <- matrixExtract(covcoverageSubsections[[g]], 
              "Covariance Coverage", filename)
          if (length(covcoverageSubsections) > 1) {
              covcoverageList[[groupNames[g]]] <- targetList
          }
          else covcoverageList <- targetList
      }
      if (is.list(covcoverageList)) {
          class(covcoverageList) <- c("mplus.covcoverage", "list")
      }
      else {
          class(covcoverageList) <- c("mplus.covcoverage", "matrix")
      }
      if (length(covcoverageSubsections) > 1) {
          attr(covcoverageList, "group.names") <- groupNames
      }
      return(covcoverageList)
  }
  <bytecode: 0x128ce4d8>
  <environment: namespace:MplusAutomation>
   --- function search by body ---
  Function extractCovarianceCoverage in namespace MplusAutomation has this body.
   ----------- END OF FAILURE REPORT -------------- 
  Fatal error: length > 1 in coercion to logical
* checking PDF version of manual ... OK
* checking for non-standard things in the check directory ... OK
* checking for detritus in the temp directory ... OK
* DONE

Status: 1 ERROR, 1 NOTE
See
  ‘/data/gannet/ripley/R/packages/tests-LENGTH1/dmacs.Rcheck/00check.log’
for details.

Command exited with non-zero status 1
Time 1:31.23, 56.11 + 7.23