CRAN Package Check Results for Package dendroextras

Last updated on 2018-01-17 17:49:15 CET.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 0.2.2 0.75 19.55 20.30 ERROR
r-devel-linux-x86_64-debian-gcc 0.2.2 0.53 15.46 15.99 ERROR
r-devel-linux-x86_64-fedora-clang 0.2.2 22.98 OK
r-devel-linux-x86_64-fedora-gcc 0.2.2 22.93 OK
r-devel-windows-ix86+x86_64 0.2.2 3.00 31.00 34.00 OK
r-patched-linux-x86_64 0.2.2 0.59 17.79 18.38 ERROR
r-patched-solaris-x86 0.2.2 33.60 OK
r-release-linux-x86_64 0.2.2 0.71 17.75 18.46 ERROR
r-release-windows-ix86+x86_64 0.2.2 2.00 29.00 31.00 OK
r-release-osx-x86_64 0.2.2 OK
r-oldrel-windows-ix86+x86_64 0.2.2 3.00 27.00 30.00 OK
r-oldrel-osx-x86_64 0.2.2 OK

Check Details

Version: 0.2.2
Check: tests
Result: ERROR
     Running ‘test-all.R’ [2s/2s]
    Running the tests in ‘tests/test-all.R’ failed.
    Complete output:
     > # Run all tests for gphys package
     > #
     > # Author: jefferis
     > ###############################################################################
     >
     > library(testthat)
     > library(dendroextras)
     > test_package("dendroextras")
     ── 1. Error: Can colour a dendrogram with non-unique labels (@test-colour-cluste
     cannot open file 'Rplots.pdf'
     1: plot(hc) at /home/hornik/tmp/R.check/r-devel-clang/Work/build/Packages/dendroextras/tests/test-colour-clusters.R:80
     2: plot.hclust(hc)
     3: dev.hold()
     4: (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()
     })()
    
     ── 2. Error: Compare group memberships with those returned by rect.hclust (@test
     cannot open file 'Rplots.pdf'
     1: plot(hc) at /home/hornik/tmp/R.check/r-devel-clang/Work/build/Packages/dendroextras/tests/test-slice.R:22
     2: plot.hclust(hc)
     3: dev.hold()
     4: (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()
     })()
    
     ══ testthat results ═══════════════════════════════════════════════════════════
     OK: 14 SKIPPED: 1 FAILED: 2
     1. Error: Can colour a dendrogram with non-unique labels (@test-colour-clusters.R#80)
     2. Error: Compare group memberships with those returned by rect.hclust (@test-slice.R#22)
    
     Error: testthat unit tests failed
     In addition: Warning message:
     Placing tests in `inst/tests` is deprecated. Please use `tests/testthat` instead
     Execution halted
Flavor: r-devel-linux-x86_64-debian-clang

Version: 0.2.2
Check: tests
Result: ERROR
     Running ‘test-all.R’ [1s/2s]
    Running the tests in ‘tests/test-all.R’ failed.
    Complete output:
     > # Run all tests for gphys package
     > #
     > # Author: jefferis
     > ###############################################################################
     >
     > library(testthat)
     > library(dendroextras)
     > test_package("dendroextras")
     ── 1. Error: Can colour a dendrogram with non-unique labels (@test-colour-cluste
     cannot open file 'Rplots.pdf'
     1: plot(hc) at /home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages/dendroextras/tests/test-colour-clusters.R:80
     2: plot.hclust(hc)
     3: dev.hold()
     4: (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()
     })()
    
     ── 2. Error: Compare group memberships with those returned by rect.hclust (@test
     cannot open file 'Rplots.pdf'
     1: plot(hc) at /home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages/dendroextras/tests/test-slice.R:22
     2: plot.hclust(hc)
     3: dev.hold()
     4: (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()
     })()
    
     ══ testthat results ═══════════════════════════════════════════════════════════
     OK: 14 SKIPPED: 1 FAILED: 2
     1. Error: Can colour a dendrogram with non-unique labels (@test-colour-clusters.R#80)
     2. Error: Compare group memberships with those returned by rect.hclust (@test-slice.R#22)
    
     Error: testthat unit tests failed
     In addition: Warning message:
     Placing tests in `inst/tests` is deprecated. Please use `tests/testthat` instead
     Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc

Version: 0.2.2
Check: tests
Result: ERROR
     Running ‘test-all.R’ [2s/3s]
    Running the tests in ‘tests/test-all.R’ failed.
    Complete output:
     > # Run all tests for gphys package
     > #
     > # Author: jefferis
     > ###############################################################################
     >
     > library(testthat)
     > library(dendroextras)
     > test_package("dendroextras")
     ── 1. Error: Can colour a dendrogram with non-unique labels (@test-colour-cluste
     cannot open file 'Rplots.pdf'
     1: plot(hc) at /home/hornik/tmp/R.check/r-patched-gcc/Work/build/Packages/dendroextras/tests/test-colour-clusters.R:80
     2: plot.hclust(hc)
     3: dev.hold()
     4: (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()
     })()
    
     ── 2. Error: Compare group memberships with those returned by rect.hclust (@test
     cannot open file 'Rplots.pdf'
     1: plot(hc) at /home/hornik/tmp/R.check/r-patched-gcc/Work/build/Packages/dendroextras/tests/test-slice.R:22
     2: plot.hclust(hc)
     3: dev.hold()
     4: (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()
     })()
    
     ══ testthat results ═══════════════════════════════════════════════════════════
     OK: 14 SKIPPED: 1 FAILED: 2
     1. Error: Can colour a dendrogram with non-unique labels (@test-colour-clusters.R#80)
     2. Error: Compare group memberships with those returned by rect.hclust (@test-slice.R#22)
    
     Error: testthat unit tests failed
     In addition: Warning message:
     Placing tests in `inst/tests` is deprecated. Please use `tests/testthat` instead
     Execution halted
Flavor: r-patched-linux-x86_64

Version: 0.2.2
Check: tests
Result: ERROR
     Running ‘test-all.R’ [2s/2s]
    Running the tests in ‘tests/test-all.R’ failed.
    Complete output:
     > # Run all tests for gphys package
     > #
     > # Author: jefferis
     > ###############################################################################
     >
     > library(testthat)
     > library(dendroextras)
     > test_package("dendroextras")
     ── 1. Error: Can colour a dendrogram with non-unique labels (@test-colour-cluste
     cannot open file 'Rplots.pdf'
     1: plot(hc) at /home/hornik/tmp/R.check/r-release-gcc/Work/build/Packages/dendroextras/tests/test-colour-clusters.R:80
     2: plot.hclust(hc)
     3: dev.hold()
     4: (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()
     })()
    
     ── 2. Error: Compare group memberships with those returned by rect.hclust (@test
     cannot open file 'Rplots.pdf'
     1: plot(hc) at /home/hornik/tmp/R.check/r-release-gcc/Work/build/Packages/dendroextras/tests/test-slice.R:22
     2: plot.hclust(hc)
     3: dev.hold()
     4: (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()
     })()
    
     ══ testthat results ═══════════════════════════════════════════════════════════
     OK: 14 SKIPPED: 1 FAILED: 2
     1. Error: Can colour a dendrogram with non-unique labels (@test-colour-clusters.R#80)
     2. Error: Compare group memberships with those returned by rect.hclust (@test-slice.R#22)
    
     Error: testthat unit tests failed
     In addition: Warning message:
     Placing tests in `inst/tests` is deprecated. Please use `tests/testthat` instead
     Execution halted
Flavor: r-release-linux-x86_64