CRAN Package Check Results for Package hNMF

Last updated on 2018-10-19 01:46:25 CEST.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 0.8 5.05 80.99 86.04 ERROR
r-devel-linux-x86_64-debian-gcc 0.9 2.86 63.79 66.65 OK
r-devel-linux-x86_64-fedora-clang 0.9 101.22 OK
r-devel-linux-x86_64-fedora-gcc 0.9 99.34 OK
r-devel-windows-ix86+x86_64 0.8 15.00 130.00 145.00 OK
r-patched-linux-x86_64 0.8 3.54 68.90 72.44 ERROR
r-patched-solaris-x86 0.8 119.50 OK
r-release-linux-x86_64 0.9 4.54 70.42 74.96 OK
r-release-windows-ix86+x86_64 0.8 21.00 78.00 99.00 OK
r-release-osx-x86_64 0.8 OK
r-oldrel-windows-ix86+x86_64 0.8 9.00 120.00 129.00 OK
r-oldrel-osx-x86_64 0.8 OK

Check Details

Version: 0.8
Check: tests
Result: ERROR
     Running ‘testthat.R’ [3s/4s]
    Running the tests in ‘tests/testthat.R’ failed.
    Complete output:
     > library(testthat)
     > library(hNMF)
     >
     > test_check("hNMF")
     ── 1. Error: Dice-scores are 100% when segmentation masks are identical (@test_v
     cannot open file 'Rplots.pdf'
     1: validateNMFResult(nmfInput, nmfMod, sliceRange, indTumor = 1, indNecrosis = 2, indEdema = 3,
     tumorNiftiFile = "tumor.nii", necrosisNiftiFile = "necrosis.nii", edemaNiftiFile = "edema.nii") at testthat/test_validationResults.R:57
     2: viewNMFResult(nmfInput, nmfModel)
     3: makeFigure(width = 10, height = 3 * nFigRows)
     4: grDevices::dev.new(width = width, height = height)
     5: do.call(dev, a)
     6: (function (file = if (onefile) "Rplots.pdf" else "Rplot%03d.pdf", width, height,
     onefile, family, title, fonts, version, paper, encoding, bg, fg, pointsize, pagecentre,
     colormodel, useDingbats, useKerning, fillOddEven, compress)
     {
     initPSandPDFfonts()
     new <- list()
     if (!missing(width))
     new$width <- width
     if (!missing(height))
     new$height <- height
     if (!missing(onefile))
     new$onefile <- onefile
     if (!missing(title))
     new$title <- title
     if (!missing(fonts))
     new$fonts <- fonts
     if (!missing(version))
     new$version <- version
     if (!missing(paper))
     new$paper <- paper
     if (!missing(encoding))
     new$encoding <- encoding
     if (!missing(bg))
     new$bg <- bg
     if (!missing(fg))
     new$fg <- fg
     if (!missing(pointsize))
     new$pointsize <- pointsize
     if (!missing(pagecentre))
     new$pagecentre <- pagecentre
     if (!missing(colormodel))
     new$colormodel <- colormodel
     if (!missing(useDingbats))
     new$useDingbats <- useDingbats
     if (!missing(useKerning))
     new$useKerning <- useKerning
     if (!missing(fillOddEven))
     new$fillOddEven <- fillOddEven
     if (!missing(compress))
     new$compress <- compress
     old <- check.options(new, name.opt = ".PDF.Options", envir = .PSenv)
     if (!missing(family) && (inherits(family, "Type1Font") || inherits(family, "CIDFont"))) {
     enc <- family$encoding
     if (inherits(family, "Type1Font") && !is.null(enc) && enc != "default" &&
     (is.null(old$encoding) || old$encoding == "default"))
     old$encoding <- enc
     family <- family$metrics
     }
     if (is.null(old$encoding) || old$encoding == "default")
     old$encoding <- guessEncoding()
     if (!missing(family)) {
     if (length(family) == 4L) {
     family <- c(family, "Symbol.afm")
     }
     else if (length(family) == 5L) {
     }
     else if (length(family) == 1L) {
     pf <- pdfFonts(family)[[1L]]
     if (is.null(pf))
     stop(gettextf("unknown family '%s'", family), domain = NA)
     matchFont(pf, old$encoding)
     }
     else stop("invalid 'family' argument")
     old$family <- family
     }
     version <- old$version
     versions <- c("1.1", "1.2", "1.3", "1.4", "1.5", "1.6", "1.7", "2.0")
     if (version %in% versions)
     version <- as.integer(strsplit(version, "[.]")[[1L]])
     else stop("invalid PDF version")
     onefile <- old$onefile
     if (!checkIntFormat(file))
     stop(gettextf("invalid 'file' argument '%s'", file), domain = NA)
     .External(C_PDF, file, old$paper, old$family, old$encoding, old$bg, old$fg, old$width,
     old$height, old$pointsize, onefile, old$pagecentre, old$title, old$fonts,
     version[1L], version[2L], old$colormodel, old$useDingbats, old$useKerning,
     old$fillOddEven, old$compress)
     invisible()
     })(width = 10, height = 3)
    
     ══ testthat results ═══════════════════════════════════════════════════════════
     OK: 3 SKIPPED: 0 FAILED: 1
     1. Error: Dice-scores are 100% when segmentation masks are identical (@test_validationResults.R#57)
    
     Error: testthat unit tests failed
     Execution halted
Flavor: r-devel-linux-x86_64-debian-clang

Version: 0.8
Check: tests
Result: ERROR
     Running ‘testthat.R’ [3s/3s]
    Running the tests in ‘tests/testthat.R’ failed.
    Complete output:
     > library(testthat)
     > library(hNMF)
     >
     > test_check("hNMF")
     ── 1. Error: Dice-scores are 100% when segmentation masks are identical (@test_v
     cannot open file 'Rplots.pdf'
     1: validateNMFResult(nmfInput, nmfMod, sliceRange, indTumor = 1, indNecrosis = 2, indEdema = 3,
     tumorNiftiFile = "tumor.nii", necrosisNiftiFile = "necrosis.nii", edemaNiftiFile = "edema.nii") at testthat/test_validationResults.R:57
     2: viewNMFResult(nmfInput, nmfModel)
     3: makeFigure(width = 10, height = 3 * nFigRows)
     4: grDevices::dev.new(width = width, height = height)
     5: do.call(dev, a)
     6: (function (file = if (onefile) "Rplots.pdf" else "Rplot%03d.pdf", width, height,
     onefile, family, title, fonts, version, paper, encoding, bg, fg, pointsize, pagecentre,
     colormodel, useDingbats, useKerning, fillOddEven, compress)
     {
     initPSandPDFfonts()
     new <- list()
     if (!missing(width))
     new$width <- width
     if (!missing(height))
     new$height <- height
     if (!missing(onefile))
     new$onefile <- onefile
     if (!missing(title))
     new$title <- title
     if (!missing(fonts))
     new$fonts <- fonts
     if (!missing(version))
     new$version <- version
     if (!missing(paper))
     new$paper <- paper
     if (!missing(encoding))
     new$encoding <- encoding
     if (!missing(bg))
     new$bg <- bg
     if (!missing(fg))
     new$fg <- fg
     if (!missing(pointsize))
     new$pointsize <- pointsize
     if (!missing(pagecentre))
     new$pagecentre <- pagecentre
     if (!missing(colormodel))
     new$colormodel <- colormodel
     if (!missing(useDingbats))
     new$useDingbats <- useDingbats
     if (!missing(useKerning))
     new$useKerning <- useKerning
     if (!missing(fillOddEven))
     new$fillOddEven <- fillOddEven
     if (!missing(compress))
     new$compress <- compress
     old <- check.options(new, name.opt = ".PDF.Options", envir = .PSenv)
     if (!missing(family) && (inherits(family, "Type1Font") || inherits(family, "CIDFont"))) {
     enc <- family$encoding
     if (inherits(family, "Type1Font") && !is.null(enc) && enc != "default" &&
     (is.null(old$encoding) || old$encoding == "default"))
     old$encoding <- enc
     family <- family$metrics
     }
     if (is.null(old$encoding) || old$encoding == "default")
     old$encoding <- guessEncoding()
     if (!missing(family)) {
     if (length(family) == 4L) {
     family <- c(family, "Symbol.afm")
     }
     else if (length(family) == 5L) {
     }
     else if (length(family) == 1L) {
     pf <- pdfFonts(family)[[1L]]
     if (is.null(pf))
     stop(gettextf("unknown family '%s'", family), domain = NA)
     matchFont(pf, old$encoding)
     }
     else stop("invalid 'family' argument")
     old$family <- family
     }
     version <- old$version
     versions <- c("1.1", "1.2", "1.3", "1.4", "1.5", "1.6", "1.7", "2.0")
     if (version %in% versions)
     version <- as.integer(strsplit(version, "[.]")[[1L]])
     else stop("invalid PDF version")
     onefile <- old$onefile
     if (!checkIntFormat(file))
     stop(gettextf("invalid 'file' argument '%s'", file), domain = NA)
     .External(C_PDF, file, old$paper, old$family, old$encoding, old$bg, old$fg, old$width,
     old$height, old$pointsize, onefile, old$pagecentre, old$title, old$fonts,
     version[1L], version[2L], old$colormodel, old$useDingbats, old$useKerning,
     old$fillOddEven, old$compress)
     invisible()
     })(width = 10, height = 3)
    
     ══ testthat results ═══════════════════════════════════════════════════════════
     OK: 3 SKIPPED: 0 FAILED: 1
     1. Error: Dice-scores are 100% when segmentation masks are identical (@test_validationResults.R#57)
    
     Error: testthat unit tests failed
     Execution halted
Flavor: r-patched-linux-x86_64