CRAN Package Check Results for Package pvar

Last updated on 2018-05-09 22:48:46 CEST.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 2.2.2 16.67 40.02 56.69 ERROR
r-devel-linux-x86_64-debian-gcc 2.2.2 13.93 31.04 44.97 ERROR
r-devel-linux-x86_64-fedora-clang 2.2.2 71.42 NOTE
r-devel-linux-x86_64-fedora-gcc 2.2.2 67.51 NOTE
r-devel-windows-ix86+x86_64 2.2.2 49.00 97.00 146.00 OK
r-patched-linux-x86_64 2.2.2 16.54 37.28 53.82 ERROR
r-patched-solaris-x86 2.2.2 85.70 OK
r-release-linux-x86_64 2.2.2 16.64 37.33 53.97 ERROR
r-release-windows-ix86+x86_64 2.2.2 49.00 97.00 146.00 OK
r-release-osx-x86_64 2.2.2 OK
r-oldrel-windows-ix86+x86_64 2.2.2 45.00 72.00 117.00 OK
r-oldrel-osx-x86_64 2.2.2 OK

Check Details

Version: 2.2.2
Check: compiled code
Result: NOTE
    File ‘pvar/libs/pvar.so’:
     Found no calls to: ‘R_registerRoutines’, ‘R_useDynamicSymbols’
    
    It is good practice to register native routines and to disable symbol
    search.
    
    See ‘Writing portable packages’ in the ‘Writing R Extensions’ manual.
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-patched-linux-x86_64, r-release-linux-x86_64

Version: 2.2.2
Check: tests
Result: ERROR
     Running ‘test-all.R’ [9s/10s]
    Running the tests in ‘tests/test-all.R’ failed.
    Complete output:
     > library(testthat)
     > library(pvar)
     >
     >
     >
     > test_package("pvar")
     ── 1. Error: Basic (@test-PvarBreakTest.R#8) ──────────────────────────────────
     cannot open file 'Rplots.pdf'
     1: plot(Test) at /home/hornik/tmp/R.check/r-devel-clang/Work/build/Packages/pvar/tests/test-PvarBreakTest.R:8
     2: plot.PvarBreakTest(Test)
     3: par(mfrow = c(2, 1), mar = c(5.1, 4.1, 2.1, 2.1))
     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: Basic (@test-pvar.R#10) ──────────────────────────────────────────
     cannot open file 'Rplots.pdf'
     1: expect_that(plot(PV), is_null()) at /home/hornik/tmp/R.check/r-devel-clang/Work/build/Packages/pvar/tests/test-pvar.R:10
     2: condition(object)
     3: expect_null(x)
     4: quasi_label(enquo(object), label)
     5: eval_bare(get_expr(quo), get_env(quo))
     6: plot(PV)
     7: plot.pvar(PV)
     8: plot(Time, x$x, type = "l", sub = sub, ylab = ylab, main = main, ...)
     9: plot.default(Time, x$x, type = "l", sub = sub, ylab = ylab, main = main, ...)
     10: dev.hold()
     11: (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: 317 SKIPPED: 0 FAILED: 2
     1. Error: Basic (@test-PvarBreakTest.R#8)
     2. Error: Basic (@test-pvar.R#10)
    
     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: 2.2.2
Check: tests
Result: ERROR
     Running ‘test-all.R’ [7s/9s]
    Running the tests in ‘tests/test-all.R’ failed.
    Complete output:
     > library(testthat)
     > library(pvar)
     >
     >
     >
     > test_package("pvar")
     ── 1. Error: Basic (@test-PvarBreakTest.R#8) ──────────────────────────────────
     cannot open file 'Rplots.pdf'
     1: plot(Test) at /home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages/pvar/tests/test-PvarBreakTest.R:8
     2: plot.PvarBreakTest(Test)
     3: par(mfrow = c(2, 1), mar = c(5.1, 4.1, 2.1, 2.1))
     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: Basic (@test-pvar.R#10) ──────────────────────────────────────────
     cannot open file 'Rplots.pdf'
     1: expect_that(plot(PV), is_null()) at /home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages/pvar/tests/test-pvar.R:10
     2: condition(object)
     3: expect_null(x)
     4: quasi_label(enquo(object), label)
     5: eval_bare(get_expr(quo), get_env(quo))
     6: plot(PV)
     7: plot.pvar(PV)
     8: plot(Time, x$x, type = "l", sub = sub, ylab = ylab, main = main, ...)
     9: plot.default(Time, x$x, type = "l", sub = sub, ylab = ylab, main = main, ...)
     10: dev.hold()
     11: (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: 317 SKIPPED: 0 FAILED: 2
     1. Error: Basic (@test-PvarBreakTest.R#8)
     2. Error: Basic (@test-pvar.R#10)
    
     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: 2.2.2
Check: tests
Result: ERROR
     Running ‘test-all.R’ [9s/11s]
    Running the tests in ‘tests/test-all.R’ failed.
    Complete output:
     > library(testthat)
     > library(pvar)
     >
     >
     >
     > test_package("pvar")
     ── 1. Error: Basic (@test-PvarBreakTest.R#8) ──────────────────────────────────
     cannot open file 'Rplots.pdf'
     1: plot(Test) at /home/hornik/tmp/R.check/r-patched-gcc/Work/build/Packages/pvar/tests/test-PvarBreakTest.R:8
     2: plot.PvarBreakTest(Test)
     3: par(mfrow = c(2, 1), mar = c(5.1, 4.1, 2.1, 2.1))
     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: Basic (@test-pvar.R#10) ──────────────────────────────────────────
     cannot open file 'Rplots.pdf'
     1: expect_that(plot(PV), is_null()) at /home/hornik/tmp/R.check/r-patched-gcc/Work/build/Packages/pvar/tests/test-pvar.R:10
     2: condition(object)
     3: expect_null(x)
     4: quasi_label(enquo(object), label)
     5: eval_bare(get_expr(quo), get_env(quo))
     6: plot(PV)
     7: plot.pvar(PV)
     8: plot(Time, x$x, type = "l", sub = sub, ylab = ylab, main = main, ...)
     9: plot.default(Time, x$x, type = "l", sub = sub, ylab = ylab, main = main, ...)
     10: dev.hold()
     11: (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: 317 SKIPPED: 0 FAILED: 2
     1. Error: Basic (@test-PvarBreakTest.R#8)
     2. Error: Basic (@test-pvar.R#10)
    
     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: 2.2.2
Check: tests
Result: ERROR
     Running ‘test-all.R’ [9s/10s]
    Running the tests in ‘tests/test-all.R’ failed.
    Complete output:
     > library(testthat)
     > library(pvar)
     >
     >
     >
     > test_package("pvar")
     ── 1. Error: Basic (@test-PvarBreakTest.R#8) ──────────────────────────────────
     cannot open file 'Rplots.pdf'
     1: plot(Test) at /home/hornik/tmp/R.check/r-release-gcc/Work/build/Packages/pvar/tests/test-PvarBreakTest.R:8
     2: plot.PvarBreakTest(Test)
     3: par(mfrow = c(2, 1), mar = c(5.1, 4.1, 2.1, 2.1))
     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: Basic (@test-pvar.R#10) ──────────────────────────────────────────
     cannot open file 'Rplots.pdf'
     1: expect_that(plot(PV), is_null()) at /home/hornik/tmp/R.check/r-release-gcc/Work/build/Packages/pvar/tests/test-pvar.R:10
     2: condition(object)
     3: expect_null(x)
     4: quasi_label(enquo(object), label)
     5: eval_bare(get_expr(quo), get_env(quo))
     6: plot(PV)
     7: plot.pvar(PV)
     8: plot(Time, x$x, type = "l", sub = sub, ylab = ylab, main = main, ...)
     9: plot.default(Time, x$x, type = "l", sub = sub, ylab = ylab, main = main, ...)
     10: dev.hold()
     11: (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: 317 SKIPPED: 0 FAILED: 2
     1. Error: Basic (@test-PvarBreakTest.R#8)
     2. Error: Basic (@test-pvar.R#10)
    
     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