CRAN Package Check Results for Package argo

Last updated on 2020-02-19 10:48:46 CET.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 2.0.0 10.56 130.56 141.12 ERROR
r-devel-linux-x86_64-debian-gcc 2.0.0 9.39 99.45 108.84 ERROR
r-devel-linux-x86_64-fedora-clang 2.0.0 166.57 ERROR
r-devel-linux-x86_64-fedora-gcc 2.0.0 163.47 ERROR
r-devel-windows-ix86+x86_64 2.0.0 18.00 143.00 161.00 OK
r-devel-windows-ix86+x86_64-gcc8 2.0.0 27.00 180.00 207.00 OK
r-patched-linux-x86_64 2.0.0 9.12 116.54 125.66 OK
r-patched-solaris-x86 2.0.0 216.80 OK
r-release-linux-x86_64 2.0.0 7.68 115.53 123.21 OK
r-release-windows-ix86+x86_64 2.0.0 17.00 128.00 145.00 OK
r-release-osx-x86_64 2.0.0 OK
r-oldrel-windows-ix86+x86_64 2.0.0 12.00 138.00 150.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: 0xa13e9f8>
    <environment: 0xa1afd38>
     --- 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

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: 0x55fd00d71ed0>
    <environment: 0x55fd00de97e0>
     --- 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-gcc

Version: 2.0.0
Check: examples
Result: ERROR
    Running examples in ‘argo-Ex.R’ failed
    The error most likely occurred in:
    
    > ### 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: 0xadec490>
    <environment: 0xae3f800>
     --- 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-fedora-clang

Version: 2.0.0
Check: examples
Result: ERROR
    Running examples in ‘argo-Ex.R’ failed
    The error most likely occurred in:
    
    > ### 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: 0xba77de8>
    <environment: 0xbae6df0>
     --- 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-fedora-gcc