* using log directory ‘/data/gannet/ripley/R/packages/tests-LENGTH1/pds3.Rcheck’
* using R Under development (unstable) (2022-04-26 r82260)
* using platform: x86_64-pc-linux-gnu (64-bit)
* using session charset: UTF-8
* using option ‘--no-stop-on-test-error’
* checking for file ‘pds3/DESCRIPTION’ ... OK
* this is package ‘pds3’ version ‘0.5.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 ‘pds3’ can be installed ... [5s/14s] OK
* checking package directory ... OK
* checking ‘build’ 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 ... [4s/11s] 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 installed files from ‘inst/doc’ ... OK
* checking files in ‘vignettes’ ... OK
* checking examples ... OK
* checking for unstated dependencies in ‘tests’ ... OK
* checking tests ...
  Running ‘testthat.R’ [5s/12s]
 [5s/13s] ERROR
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(pds3)
  > 
  > test_check("pds3")
   ----------- FAILURE REPORT -------------- 
   --- failure: length > 1 in coercion to logical ---
   --- srcref --- 
  : 
   --- package (from environment) --- 
  pds3
   --- call from context --- 
  p$callable(p = pslice)
   --- call from argument --- 
  p$length() == 3 && p$get(3) == ","
   --- R stacktrace ---
  where 1: p$callable(p = pslice)
  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({
      self$symstack <- head(self$symstack, -plen)
      self$state <- state
      p$callable(p = pslice)
      self$statestack <- head(self$statestack, -plen)
      debug$info(sprintf("Result : %s", format_result(pslice)))
      self$symstack <- append(self$symstack, sym)
      state <- self$goto[[as.character(tail(self$statestack, 1)[[1]])]][[pname]]
      self$statestack <- append(self$statestack, state)
  }, error = function(e) {
      if (!grepl("\\[SyntaxError\\]", e[[1]])) 
          stop(e[[1]])
      lookaheadstack <- append(lookaheadstack, lookahead)
      self$symstack <- append(self$symstack, tail(head(targ, -1), 
          -1))
      self$statestack <- head(self$statestack, -1)
      self$state <- tail(self$statestack, 1)[[1]]
      sym$type = "error"
      sym$value = "error"
      lookahead <- sym
      errorcount <- error_count
      self$errorok <- FALSE
  })
  where 6: util$parser$parse(dat$label, util$lexer)
  where 7: reduce(util$parser$parse(dat$label, util$lexer))
  where 8 at test_files.R#7: pds3_read(test.file, assume_complete = T)
  where 9: eval(code, test_env)
  where 10: eval(code, test_env)
  where 11: 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 12: doTryCatch(return(expr), name, parentenv, handler)
  where 13: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  where 14: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  where 15: doTryCatch(return(expr), name, parentenv, handler)
  where 16: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), 
      names[nh], parentenv, handlers[[nh]])
  where 17: tryCatchList(expr, classes, parentenv, handlers)
  where 18: 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 19: test_code(desc, code, env = parent.frame(), reporter = reporter)
  where 20 at test_files.R#3: test_that("mv10110413_6000000_001_rr.lbl", {
      file.name <- "mv10110413_6000000_001_rr.lbl"
      test.file <- file.path("..", "testdata", file.name)
      res <- pds3_read(test.file, assume_complete = T)
      expect_length(res, 3)
      expect_equal(nchar(res$extra_data), 0)
      expect_length(res$odl, 109)
      expect_equal(res$odl$MISSION_NAME, "EPOXI")
      expect_equal(res$odl[["EPOXI:INTERPOLATED_PIXEL_COUNT"]], 
          0)
      expect_equal(res$odl[["^EXT_DESTRIPE_IMAGE"]]$offset, 3301)
      expect_equal(res$odl$EXT_DESTRIPE_IMAGE$UNIT, "DATA_NUMBER")
  })
  where 21: eval(code, test_env)
  where 22: eval(code, test_env)
  where 23: 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 24: doTryCatch(return(expr), name, parentenv, handler)
  where 25: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  where 26: tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
  where 27: doTryCatch(return(expr), name, parentenv, handler)
  where 28: tryCatchOne(tryCatchList(expr, names[-nh], parentenv, handlers[-nh]), 
      names[nh], parentenv, handlers[[nh]])
  where 29: tryCatchList(expr, classes, parentenv, handlers)
  where 30: 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 31: test_code(NULL, exprs, env)
  where 32: source_file(path, child_env(env), wrap = wrap)
  where 33: FUN(X[[i]], ...)
  where 34: lapply(test_paths, test_one_file, env = env, wrap = wrap)
  where 35: doTryCatch(return(expr), name, parentenv, handler)
  where 36: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  where 37: tryCatchList(expr, classes, parentenv, handlers)
  where 38: tryCatch(code, testthat_abort_reporter = function(cnd) {
      cat(conditionMessage(cnd), "\n")
      NULL
  })
  where 39: with_reporter(reporters$multi, lapply(test_paths, test_one_file, 
      env = env, wrap = wrap))
  where 40: 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 41: 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 42: test_dir("testthat", package = package, reporter = reporter, 
      ..., load_package = "installed")
  where 43: test_check("pds3")
  
   --- value of length: 2 type: logical ---
  value  unit 
  FALSE FALSE 
   --- function from context --- 
  function (doc = "sequence_values : value ','\n                                                      | sequence_values value ','\n                                                      | sequence_values value", 
      p) 
  {
      if (p$length() == 3 && p$get(3) == ",") {
          p$set(1, p$get(2))
      }
      else if (typeof(p$get(2)) == "list" && !is.null(p$get(2)$unit)) {
          p$set(1, list(p$get(2), p$get(3)))
      }
      else {
          tmp <- p$get(2)
          tmp[[length(tmp) + 1]] <- p$get(3)
          p$set(1, tmp)
      }
  }
  <environment: 0x1b68b20>
   --- function search by body ---
   ----------- END OF FAILURE REPORT -------------- 
  Fatal error: length > 1 in coercion to logical
* checking for unstated dependencies in vignettes ... OK
* checking package vignettes in ‘inst/doc’ ... OK
* checking re-building of vignette outputs ... [6s/23s] ERROR
Error(s) in re-building vignettes:
--- re-building ‘pds3.Rmd’ using rmarkdown
 ----------- FAILURE REPORT -------------- 
 --- failure: length > 1 in coercion to logical ---
 --- srcref --- 
: 
 --- package (from environment) --- 
pds3
 --- call from context --- 
p$callable(p = pslice)
 --- call from argument --- 
p$length() == 3 && p$get(3) == ","
 --- R stacktrace ---
where 1: p$callable(p = pslice)
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({
    self$symstack <- head(self$symstack, -plen)
    self$state <- state
    p$callable(p = pslice)
    self$statestack <- head(self$statestack, -plen)
    debug$info(sprintf("Result : %s", format_result(pslice)))
    self$symstack <- append(self$symstack, sym)
    state <- self$goto[[as.character(tail(self$statestack, 1)[[1]])]][[pname]]
    self$statestack <- append(self$statestack, state)
}, error = function(e) {
    if (!grepl("\\[SyntaxError\\]", e[[1]])) 
        stop(e[[1]])
    lookaheadstack <- append(lookaheadstack, lookahead)
    self$symstack <- append(self$symstack, tail(head(targ, -1), 
        -1))
    self$statestack <- head(self$statestack, -1)
    self$state <- tail(self$statestack, 1)[[1]]
    sym$type = "error"
    sym$value = "error"
    lookahead <- sym
    errorcount <- error_count
    self$errorok <- FALSE
})
where 6: util$parser$parse(dat$label, util$lexer)
where 7: reduce(util$parser$parse(dat$label, util$lexer))
where 8: pds3_read(dat)
where 9: eval(expr, envir, enclos)
where 10: eval(expr, envir, enclos)
where 11: eval_with_user_handlers(expr, envir, enclos, user_handlers)
where 12: withVisible(eval_with_user_handlers(expr, envir, enclos, user_handlers))
where 13: withCallingHandlers(withVisible(eval_with_user_handlers(expr, 
    envir, enclos, user_handlers)), warning = wHandler, error = eHandler, 
    message = mHandler)
where 14: handle(ev <- withCallingHandlers(withVisible(eval_with_user_handlers(expr, 
    envir, enclos, user_handlers)), warning = wHandler, error = eHandler, 
    message = mHandler))
where 15: timing_fn(handle(ev <- withCallingHandlers(withVisible(eval_with_user_handlers(expr, 
    envir, enclos, user_handlers)), warning = wHandler, error = eHandler, 
    message = mHandler)))
where 16: evaluate_call(expr, parsed$src[[i]], envir = envir, enclos = enclos, 
    debug = debug, last = i == length(out), use_try = stop_on_error != 
        2L, keep_warning = keep_warning, keep_message = keep_message, 
    output_handler = output_handler, include_timing = include_timing)
where 17: evaluate::evaluate(...)
where 18: evaluate(code, envir = env, new_device = FALSE, keep_warning = !isFALSE(options$warning), 
    keep_message = !isFALSE(options$message), stop_on_error = if (is.numeric(options$error)) options$error else {
        if (options$error && options$include) 
            0L
        else 2L
    }, output_handler = knit_handlers(options$render, options))
where 19: in_dir(input_dir(), expr)
where 20: in_input_dir(evaluate(code, envir = env, new_device = FALSE, 
    keep_warning = !isFALSE(options$warning), keep_message = !isFALSE(options$message), 
    stop_on_error = if (is.numeric(options$error)) options$error else {
        if (options$error && options$include) 
            0L
        else 2L
    }, output_handler = knit_handlers(options$render, options)))
where 21: eng_r(options)
where 22: block_exec(params)
where 23: call_block(x)
where 24: process_group.block(group)
where 25: process_group(group)
where 26: withCallingHandlers(if (tangle) process_tangle(group) else process_group(group), 
    error = function(e) {
        setwd(wd)
        cat(res, sep = "\n", file = output %n% "")
        message("Quitting from lines ", paste(current_lines(i), 
            collapse = "-"), " (", knit_concord$get("infile"), 
            ") ")
    })
where 27: process_file(text, output)
where 28: knitr::knit(knit_input, knit_output, envir = envir, quiet = quiet)
where 29: rmarkdown::render(file, encoding = encoding, quiet = quiet, envir = globalenv(), 
    output_dir = getwd(), ...)
where 30: vweave_rmarkdown(...)
where 31: engine$weave(file, quiet = quiet, encoding = enc)
where 32: doTryCatch(return(expr), name, parentenv, handler)
where 33: tryCatchOne(expr, names, parentenv, handlers[[1L]])
where 34: tryCatchList(expr, classes, parentenv, handlers)
where 35: tryCatch({
    engine$weave(file, quiet = quiet, encoding = enc)
    setwd(startdir)
    output <- find_vignette_product(name, by = "weave", engine = engine)
    if (!have.makefile && vignette_is_tex(output)) {
        texi2pdf(file = output, clean = FALSE, quiet = quiet)
        output <- find_vignette_product(name, by = "texi2pdf", 
            engine = engine)
    }
    outputs <- c(outputs, output)
}, error = function(e) {
    thisOK <<- FALSE
    fails <<- c(fails, file)
    message(gettextf("Error: processing vignette '%s' failed with diagnostics:\n%s", 
        file, conditionMessage(e)))
})
where 36: tools:::buildVignettes(dir = "/data/gannet/ripley/R/packages/tests-LENGTH1/pds3.Rcheck/vign_test/pds3")

 --- value of length: 2 type: logical ---
value  unit 
FALSE FALSE 
 --- function from context --- 
function (doc = "sequence_values : value ','\n                                                      | sequence_values value ','\n                                                      | sequence_values value", 
    p) 
{
    if (p$length() == 3 && p$get(3) == ",") {
        p$set(1, p$get(2))
    }
    else if (typeof(p$get(2)) == "list" && !is.null(p$get(2)$unit)) {
        p$set(1, list(p$get(2), p$get(3)))
    }
    else {
        tmp <- p$get(2)
        tmp[[length(tmp) + 1]] <- p$get(3)
        p$set(1, tmp)
    }
}
<environment: 0x5668488>
 --- function search by 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: 2 ERRORs, 1 NOTE
See
  ‘/data/gannet/ripley/R/packages/tests-LENGTH1/pds3.Rcheck/00check.log’
for details.

Command exited with non-zero status 1
Time 2:15.25, 40.49 + 7.02