* using log directory ‘/data/gannet/ripley/R/packages/tests-LENGTH1/proportion.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 ‘proportion/DESCRIPTION’ ... OK
* this is package ‘proportion’ version ‘2.0.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 ‘proportion’ can be installed ... [63s/186s] OK
* checking package 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 ... [140s/202s] 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 examples ... [20s/21s] ERROR
Running examples in ‘proportion-Ex.R’ failed
The error most likely occurred in:

> ### Name: PlotciEXx
> ### Title: Plots the CI estimation of the exact method
> ### Aliases: PlotciEXx
> 
> ### ** Examples
> 
> x=5; n=5; alp=0.05;e=0.5
> PlotciEXx(x,n,alp,e) #Mid-p
Warning: Ignoring unknown aesthetics: x
> x=5; n=5; alp=0.05;e=1 #Clopper Pearson
> PlotciEXx(x,n,alp,e)
Warning: Ignoring unknown aesthetics: x
> x=5; n=5; alp=0.05;e=c(0.1,0.5,0.95,1) #Range including Mid-p and Clopper-Pearson
> PlotciEXx(x,n,alp,e)
 ----------- FAILURE REPORT -------------- 
 --- failure: length > 1 in coercion to logical ---
 --- srcref --- 
: 
 --- package (from environment) --- 
proportion
 --- call from context --- 
PlotciEXx(x, n, alp, e)
 --- call from argument --- 
e > 1 || e < 0
 --- R stacktrace ---
where 1: PlotciEXx(x, n, alp, e)

 --- value of length: 4 type: logical ---
[1] FALSE FALSE FALSE FALSE
 --- function from context --- 
function (x, n, alp, e) 
{
    if (missing(x)) 
        stop("'x' is missing")
    if (missing(n)) 
        stop("'n' is missing")
    if (missing(alp)) 
        stop("'alpha' is missing")
    if (missing(e)) 
        stop("'e' is missing")
    if (((class(x) != "integer") & (class(x) != "numeric")) || 
        (x < 0) || x > n || length(x) > 1) 
        stop("'x' has to be a positive integer between 0 and n")
    if ((class(n) != "integer") & (class(n) != "numeric") || 
        length(n) > 1 || n <= 0) 
        stop("'n' has to be greater than 0")
    if (alp > 1 || alp < 0 || length(alp) > 1) 
        stop("'alpha' has to be between 0 and 1")
    if (e > 1 || e < 0) 
        stop("'e' has to be between 0 and 1")
    if (length(e) > 10) 
        stop("Plot of only 10 interavals of 'e' is possible")
    Abberation = ID = method = Value = LowerLimit = UpperLimit = LowerAbb = UpperAbb = ZWI = NULL
    ss1 = ciEXx(x, n, alp, e)
    id = 1:nrow(ss1)
    ss = data.frame(ID = id, x = x, LowerLimit = ss1$LEXx, UpperLimit = ss1$UEXx, 
        LowerAbb = ss1$LABB, UpperAbb = ss1$UABB, ZWI = ss1$ZWI, 
        e = ss1$e)
    ss$e = as.factor(ss$e)
    ll = subset(ss, LowerAbb == "YES")
    ul = subset(ss, UpperAbb == "YES")
    zl = subset(ss, ZWI == "YES")
    if (nrow(ll) > 0) {
        ll = ll[, c(1, 3)]
        ll$Abberation = "Lower"
        colnames(ll) <- c("ID", "Value", "Abberation")
    }
    if (nrow(ul) > 0) {
        ul = ul[, c(1, 4)]
        ul$Abberation = "Upper"
        colnames(ul) <- c("ID", "Value", "Abberation")
    }
    if (nrow(zl) > 0) {
        zl = zl[, c(1, 3)]
        zl$Abberation = "ZWI"
        colnames(zl) <- c("ID", "Value", "Abberation")
    }
    ldf = rbind(ll, ul, zl)
    if (nrow(ldf) > 0) {
        oo = ggplot2::ggplot() + ggplot2::labs(x = "Lower and Upper limits") + 
            ggplot2::labs(y = "x values") + ggplot2::labs(title = "Exact method given x") + 
            ggplot2::geom_errorbarh(data = ss, ggplot2::aes(x = UpperLimit, 
                y = ID, xmin = LowerLimit, xmax = UpperLimit, 
                color = e), size = 0.5) + ggplot2::geom_point(data = ldf, 
            ggplot2::aes(x = Value, y = ID, group = Abberation, 
                shape = Abberation), size = 4, fill = "red") + 
            ggplot2::scale_fill_manual(values = c("blue", "cyan4", 
                "red", "black", "orange", "brown", "chartreuse4", 
                "blueviolet", "deeppink", "darksalmon", "tan1")) + 
            ggplot2::scale_colour_manual(values = c("red", "black", 
                "blue", "cyan4", "orange", "deeppink", "chartreuse4", 
                "blueviolet", "brown", "darksalmon", "tan1")) + 
            ggplot2::scale_shape_manual(values = c(21, 22, 23))
    }
    else {
        oo = ggplot2::ggplot() + ggplot2::labs(x = "Lower and Upper limits") + 
            ggplot2::labs(y = "x values") + ggplot2::labs(title = "Exact method given x") + 
            ggplot2::geom_errorbarh(data = ss, ggplot2::aes(x = UpperLimit, 
                y = ID, xmin = LowerLimit, xmax = UpperLimit, 
                color = e), size = 0.5) + ggplot2::scale_fill_manual(values = c("blue", 
            "cyan4", "red", "black", "orange", "brown", "chartreuse4", 
            "blueviolet", "deeppink", "darksalmon", "tan1")) + 
            ggplot2::scale_colour_manual(values = c("red", "black", 
                "blue", "cyan4", "orange", "deeppink", "chartreuse4", 
                "blueviolet", "brown", "darksalmon", "tan1"))
    }
    oo
}
<bytecode: 0x593e040>
<environment: namespace:proportion>
 --- function search by body ---
Function PlotciEXx in namespace proportion has this 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: 1 ERROR, 1 NOTE
See
  ‘/data/gannet/ripley/R/packages/tests-LENGTH1/proportion.Rcheck/00check.log’
for details.

Command exited with non-zero status 1
Time 9:03.67, 299.90 + 9.72