CRAN Package Check Results for Package argo

Last updated on 2019-12-08 23:47:15 CET.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 2.0.0 10.45 128.18 138.63 ERROR
r-devel-linux-x86_64-debian-gcc 2.0.0 9.15 96.61 105.76 OK
r-devel-linux-x86_64-fedora-clang 2.0.0 163.73 OK
r-devel-linux-x86_64-fedora-gcc 2.0.0 153.19 OK
r-devel-windows-ix86+x86_64 2.0.0 18.00 179.00 197.00 OK
r-devel-windows-ix86+x86_64-gcc8 2.0.0 21.00 144.00 165.00 OK
r-patched-linux-x86_64 2.0.0 9.11 117.38 126.49 OK
r-patched-solaris-x86 2.0.0 217.70 OK
r-release-linux-x86_64 2.0.0 9.93 115.40 125.33 OK
r-release-windows-ix86+x86_64 2.0.0 23.00 133.00 156.00 OK
r-release-osx-x86_64 2.0.0 OK
r-oldrel-windows-ix86+x86_64 2.0.0 11.00 129.00 140.00 OK
r-oldrel-osx-x86_64 2.0.0 OK

Check Details

Version: 2.0.0
Check: examples
Result: ERROR
    Running examples in 'argo-Ex.R' failed
    The error most likely occurred in:
    
    > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
    > ### Name: summary_argo
    > ### Title: performance summary of ARGO applied on CDC's ILI data
    > ### Aliases: summary_argo
    >
    > ### ** Examples
    >
    > GFT_xts = xts::xts(exp(matrix(rnorm(1000), ncol=10)), order.by = Sys.Date() - (100:1))
    > names(GFT_xts) <- paste0("col", 1:10)
    > names(GFT_xts)[1] <- "CDC.data"
    > summary_argo(
    + GFT_xts = GFT_xts,
    + model_names = colnames(GFT_xts)[-1],
    + legend_names = paste0(colnames(GFT_xts)[-1], "legend"),
    + periods = c(paste0(zoo::index(GFT_xts)[1], "/", zoo::index(GFT_xts)[49]),
    + paste0(zoo::index(GFT_xts)[50], "/", zoo::index(GFT_xts)[100])),
    + whole_period="2009-03/"
    + )
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
    :
     --- package (from environment) ---
    argo
     --- call from context ---
    FUN(X[[i]], ...)
     --- call from argument ---
    if (class(re) == "try-error") return(NaN) else return(re)
     --- R stacktrace ---
    where 1: FUN(X[[i]], ...)
    where 2: lapply(X = X, FUN = FUN, ...)
    where 3: sapply(periods, function(p) {
     re <- try(cor(x[p], y[p], use = "everything"), silent = T)
     if (class(re) == "try-error")
     return(NaN)
     else return(re)
    })
    where 4: corr_by_period(GFT_xts$CDC.data, GFT_xts[, name], periods)
    where 5: FUN(X[[i]], ...)
    where 6: lapply(X = X, FUN = FUN, ...)
    where 7: sapply(model_names, function(name) corr_by_period(GFT_xts$CDC.data,
     GFT_xts[, name], periods))
    where 8: summary_argo(GFT_xts = GFT_xts, model_names = colnames(GFT_xts)[-1],
     legend_names = paste0(colnames(GFT_xts)[-1], "legend"), periods = c(paste0(zoo::index(GFT_xts)[1],
     "/", zoo::index(GFT_xts)[49]), paste0(zoo::index(GFT_xts)[50],
     "/", zoo::index(GFT_xts)[100])), whole_period = "2009-03/")
    
     --- value of length: 2 type: logical ---
    [1] FALSE FALSE
     --- function from context ---
    function (p)
    {
     re <- try(cor(x[p], y[p], use = "everything"), silent = T)
     if (class(re) == "try-error")
     return(NaN)
     else return(re)
    }
    <bytecode: 0xa9314f0>
    <environment: 0xa98bf60>
     --- function search by body ---
     ----------- END OF FAILURE REPORT --------------
    Error in if (class(re) == "try-error") return(NaN) else return(re) :
     the condition has length > 1
    Calls: summary_argo ... lapply -> FUN -> corr_by_period -> sapply -> lapply -> FUN
    Execution halted
Flavor: r-devel-linux-x86_64-debian-clang