Running ‘testthat.R’ [14s/76s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(NFP)
  Loading required package: graph
  Loading required package: BiocGenerics
  Loading required package: parallel
  
  Attaching package: 'BiocGenerics'
  
  The following objects are masked from 'package:parallel':
  
      clusterApply, clusterApplyLB, clusterCall, clusterEvalQ,
      clusterExport, clusterMap, parApply, parCapply, parLapply,
      parLapplyLB, parRapply, parSapply, parSapplyLB
  
  The following objects are masked from 'package:stats':
  
      IQR, mad, sd, var, xtabs
  
  The following objects are masked from 'package:base':
  
      Filter, Find, Map, Position, Reduce, anyDuplicated, append,
      as.data.frame, basename, cbind, colMeans, colSums, colnames,
      dirname, do.call, duplicated, eval, evalq, get, grep, grepl,
      intersect, is.unsorted, lapply, mapply, match, mget, order, paste,
      pmax, pmax.int, pmin, pmin.int, rank, rbind, rowMeans, rowSums,
      rownames, sapply, setdiff, sort, table, tapply, union, unique,
      unsplit, which, which.max, which.min
  
  > test_check('NFP')
  ── 1. Error: (unknown) (@test-NFP.R#13)  ───────────────────────────────────────
  missing value where TRUE/FALSE needed
  1: parseKGML2Graph(getKGMLurl("04630", organism = "hsa")) %>% nodes_standard at testthat/test-NFP.R:13
  2: eval(lhs, parent, parent)
  3: eval(lhs, parent, parent)
  4: parseKGML2Graph(getKGMLurl("04630", organism = "hsa"))
  5: parseKGML(file)
  6: tryCatch(doc <- xmlTreeParse(file, getDTD = FALSE, error = xmlErrorCumulator(immediate = FALSE)), 
         error = function(e) {
             fileSize <- file.info(file)$size[1]
             bytes <- sprintf("%d byte%s", fileSize, ifelse(fileSize > 1, "s", ""))
             msg <- paste("The file", file, "seems not to be a valid KGML file\n")
             if (fileSize < 100L) 
                 msg <- paste(msg, "[WARNING] File size (", bytes, ") is unsually small; please check.\n", 
                     sep = "")
             msg <- paste(msg, "\nDetailed error messages from", "XML::xmlTreeParse:\n", 
                 sep = "")
             cat(msg)
             stop(e)
         })
  7: tryCatchList(expr, classes, parentenv, handlers)
  8: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  9: value[[3L]](cond)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 14 SKIPPED: 0 FAILED: 1
  1. Error: (unknown) (@test-NFP.R#13) 
  
  Error: testthat unit tests failed
  Execution halted