##############################################################################
##############################################################################
###
### Running command:
###
###   /Library/Frameworks/R.framework/Resources/bin/R CMD check --install=check:psygenet2r.install-out.txt --library=/Library/Frameworks/R.framework/Resources/library --no-vignettes --timings psygenet2r_1.36.0.tar.gz
###
##############################################################################
##############################################################################


* using log directory ‘/Users/biocbuild/bbs-3.19-bioc/meat/psygenet2r.Rcheck’
* using R version 4.4.1 (2024-06-14)
* using platform: x86_64-apple-darwin20
* R was compiled by
    Apple clang version 14.0.0 (clang-1400.0.29.202)
    GNU Fortran (GCC) 12.2.0
* running under: macOS Monterey 12.7.6
* using session charset: UTF-8
* using option ‘--no-vignettes’
* checking for file ‘psygenet2r/DESCRIPTION’ ... OK
* this is package ‘psygenet2r’ version ‘1.36.0’
* checking package namespace information ... NOTE
Found export directives that require package ‘methods’:
  ‘exportClasses’ ‘exportMethods’
Remove all such namespace directives (if obsolete) or ensure that the
DESCRIPTION Depends or Imports field contains ‘methods’.
* checking package dependencies ... OK
* checking if this is a source package ... OK
* checking if there is a namespace ... OK
* checking for hidden files and directories ... OK
* checking for portable file names ... OK
* checking for sufficient/correct file permissions ... OK
* checking whether package ‘psygenet2r’ can be installed ... OK
* checking installed package size ... OK
* checking package directory ... OK
* checking ‘build’ directory ... OK
* checking DESCRIPTION meta-information ... NOTE
License stub is invalid DCF.
* checking top-level files ... OK
* checking for left-over files ... OK
* checking index information ... OK
* checking package subdirectories ... OK
* checking code 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 dependencies in R code ... NOTE
Namespace in Imports field not imported from: ‘GO.db’
  All declared Imports should be used.
package 'methods' is used but not declared
* checking S3 generic/method consistency ... OK
* checking replacement functions ... OK
* checking foreign function calls ... OK
* checking R code for possible problems ... NOTE
.category_plot: no visible binding for global variable ‘category’
.category_plot: no visible binding for global variable ‘value’
.category_plot: no visible binding for global variable ‘variable’
.gene_plot: no visible binding for global variable ‘gene’
.gene_plot: no visible binding for global variable ‘value’
.gene_plot: no visible binding for global variable ‘variable’
.index_plot: no visible binding for global variable ‘Category’
.index_plot: no visible binding for global variable ‘value’
.index_plot: no visible binding for global variable ‘variable’
.pie_plot: no visible global function definition for ‘pie’
ListPsyGeNETIds: no visible global function definition for ‘read.csv’
disGenetCurated: no visible global function definition for ‘read.csv’
enrichedPD : <anonymous>: no visible global function definition for
  ‘phyper’
getUMLs: no visible global function definition for ‘read.csv’
jaccardEstimation: no visible binding for global variable ‘universe’
multipleInput: no visible global function definition for ‘new’
pantherGraphic: no visible binding for global variable ‘Var1’
pantherGraphic: no visible binding for global variable ‘perc’
pantherGraphic: no visible binding for global variable ‘diseases’
plot_pmids_barplot: no visible binding for global variable
  ‘c2.DiseaseName’
plot_pmids_barplot: no visible binding for global variable
  ‘c0.Number_of_Abstracts’
plot_pmids_barplot: no visible binding for global variable
  ‘c1.Gene_Symbol’
plot_psy_heatmap: no visible binding for global variable
  ‘c2.PsychiatricDisorder’
plot_psy_heatmap: no visible binding for global variable
  ‘c1.Gene_Symbol’
plot_psy_heatmap: no visible binding for global variable ‘value’
plot_psy_heatmapDisease: no visible binding for global variable
  ‘c2.DiseaseName’
plot_psy_heatmapDisease: no visible binding for global variable
  ‘c1.Gene_Symbol’
plot_psy_heatmapDisease: no visible binding for global variable
  ‘c0.Score’
plot_psy_heatmapGenes: no visible binding for global variable
  ‘c1.Gene_Symbol’
plot_psy_heatmapGenes: no visible binding for global variable
  ‘c2.DiseaseName’
plot_psy_heatmapGenes: no visible binding for global variable
  ‘c0.Score’
psyGenDisId: no visible global function definition for ‘read.csv’
psyPanther: no visible global function definition for ‘read.csv’
psygenetAll: no visible global function definition for ‘read.csv’
psygenetDisease: no visible global function definition for ‘read.csv’
psygenetDisease: no visible global function definition for ‘new’
psygenetDiseaseSentences: no visible global function definition for
  ‘read.csv’
psygenetDiseaseSentences: no visible global function definition for
  ‘new’
psygenetGene: no visible global function definition for ‘read.csv’
psygenetGene: no visible global function definition for ‘new’
psygenetGeneSentences: no visible global function definition for
  ‘read.csv’
psygenetGeneSentences: no visible global function definition for ‘new’
singleInput: no visible global function definition for ‘combn’
singleInput: no visible global function definition for ‘new’
singleInput.genes: no visible global function definition for ‘new’
topAnatEnrichment: no visible binding for global variable ‘database’
topAnatEnrichment: no visible global function definition for
  ‘read.delim’
plot,JaccardIndexPsy-ANY: no visible binding for global variable
  ‘Disease1’
plot,JaccardIndexPsy-ANY: no visible binding for global variable
  ‘Disease2’
plot,JaccardIndexPsy-ANY: no visible binding for global variable
  ‘JaccardIndex’
plot,JaccardIndexPsy-ANY: no visible binding for global variable
  ‘value’
plot,JaccardIndexPsy-ANY: no visible binding for global variable
  ‘variable’
Undefined global functions or variables:
  Category Disease1 Disease2 JaccardIndex Var1 c0.Number_of_Abstracts
  c0.Score c1.Gene_Symbol c2.DiseaseName c2.PsychiatricDisorder
  category combn database diseases gene new perc phyper pie read.csv
  read.delim universe value variable
Consider adding
  importFrom("graphics", "pie")
  importFrom("methods", "new")
  importFrom("stats", "phyper")
  importFrom("utils", "combn", "read.csv", "read.delim")
to your NAMESPACE file (and ensure that your DESCRIPTION Imports field
contains 'methods').
* checking Rd files ... OK
* checking Rd metadata ... 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 contents of ‘data’ directory ... OK
* checking data for non-ASCII characters ... OK
* checking LazyData ... OK
* checking data for ASCII and uncompressed saves ... OK
* checking files in ‘vignettes’ ... OK
* checking examples ... ERROR
Running examples in ‘psygenet2r-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: JaccardIndexPsy-class
> ### Title: Class JaccardIndexPsy
> ### Aliases: JaccardIndexPsy-class
> 
> ### ** Examples
> 
> ji <- jaccardEstimation( c( "COMT", "CLOCK", "DRD3" ), "umls:C0005586", "ALL" )
Error in function (type, msg, asError = TRUE)  : 
  Recv failure: Connection reset by peer
Calls: jaccardEstimation ... rawToChar -> <Anonymous> -> curlPerform -> <Anonymous> -> fun
Execution halted
* checking for unstated dependencies in ‘tests’ ... OK
* checking tests ...
  Running ‘testthat.R’
 ERROR
Running the tests in ‘tests/testthat.R’ failed.
Last 13 lines of output:
    1. ├─psygenet2r::psygenetGene(gene = 4852, database = "ALL", verbose = FALSE) at test_basic_gene.R:66:3
    2. │ └─psygenet2r:::ListPsyGeNETIds(database, "Gene")
    3. │   └─psygenet2r:::download_data(oql)
    4. │     └─base::tryCatch(...)
    5. │       └─base (local) tryCatchList(expr, classes, parentenv, handlers)
    6. │         └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
    7. │           └─value[[3L]](cond)
    8. │             ├─base::rawToChar(...)
    9. │             └─RCurl::getURL(...)
   10. │               └─RCurl::curlPerform(curl = curl, .opts = opts, .encoding = .encoding)
   11. └─RCurl (local) `<fn>`(56L, "Recv failure: Connection reset by peer", TRUE)
  
  [ FAIL 16 | WARN 0 | SKIP 0 | PASS 2 ]
  Error: Test failures
  Execution halted
* checking for unstated dependencies in vignettes ... OK
* checking package vignettes ... OK
* checking running R code from vignettes ... SKIPPED
* checking re-building of vignette outputs ... SKIPPED
* checking PDF version of manual ... OK
* DONE

Status: 2 ERRORs, 4 NOTEs
See
  ‘/Users/biocbuild/bbs-3.19-bioc/meat/psygenet2r.Rcheck/00check.log’
for details.

##############################################################################
##############################################################################
###
### Running command:
###
###   /Library/Frameworks/R.framework/Resources/bin/R CMD INSTALL psygenet2r
###
##############################################################################
##############################################################################


* installing to library ‘/Library/Frameworks/R.framework/Versions/4.4-x86_64/Resources/library’
* installing *source* package ‘psygenet2r’ ...
** using staged installation
** R
** data
*** moving datasets to lazyload DB
** inst
** byte-compile and prepare package for lazy loading
** help
*** installing help indices
** building package indices
** installing vignettes
** testing if installed package can be loaded from temporary location
** testing if installed package can be loaded from final location
** testing if installed package keeps a record of temporary installation path
* DONE (psygenet2r)

R version 4.4.1 (2024-06-14) -- "Race for Your Life"
Copyright (C) 2024 The R Foundation for Statistical Computing
Platform: x86_64-apple-darwin20

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(testthat)
> library(psygenet2r)
> 
> test_check("psygenet2r")
[ FAIL 16 | WARN 0 | SKIP 0 | PASS 2 ]

══ Failed tests ════════════════════════════════════════════════════════════════
── Error ('test_basic_disease.R:6:3'): Test of object returned from 'psygenetDisease' is S4 and 'PsyGeNET.Psy' ──
<RECV_ERROR/GenericCurlError/error/condition>
Error in `function (type, msg, asError = TRUE) 
{
    if (!is.character(type)) {
        i = match(type, CURLcodeValues)
        typeName = if (is.na(i)) 
            character()
        else names(CURLcodeValues)[i]
    }
    typeName = gsub("^CURLE_", "", typeName)
    fun = (if (asError) 
        stop
    else warning)
    fun(structure(list(message = msg, call = sys.call()), class = c(typeName, 
        "GenericCurlError", "error", "condition")))
}(56L, "Recv failure: Connection reset by peer", TRUE)`: Recv failure: Connection reset by peer
Backtrace:
     ▆
  1. ├─psygenet2r::psygenetDisease(...) at test_basic_disease.R:6:3
  2. │ └─psygenet2r:::ListPsyGeNETIds(database, "disease")
  3. │   └─psygenet2r:::download_data(oql)
  4. │     └─base::tryCatch(...)
  5. │       └─base (local) tryCatchList(expr, classes, parentenv, handlers)
  6. │         └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
  7. │           └─value[[3L]](cond)
  8. │             ├─base::rawToChar(...)
  9. │             └─RCurl::getURL(...)
 10. │               └─RCurl::curlPerform(curl = curl, .opts = opts, .encoding = .encoding)
 11. └─RCurl (local) `<fn>`(56L, "Recv failure: Connection reset by peer", TRUE)
── Error ('test_basic_disease.R:21:3'): Query single and existing disease into PsyGeNET ──
<RECV_ERROR/GenericCurlError/error/condition>
Error in `function (type, msg, asError = TRUE) 
{
    if (!is.character(type)) {
        i = match(type, CURLcodeValues)
        typeName = if (is.na(i)) 
            character()
        else names(CURLcodeValues)[i]
    }
    typeName = gsub("^CURLE_", "", typeName)
    fun = (if (asError) 
        stop
    else warning)
    fun(structure(list(message = msg, call = sys.call()), class = c(typeName, 
        "GenericCurlError", "error", "condition")))
}(56L, "Recv failure: Connection reset by peer", TRUE)`: Recv failure: Connection reset by peer
Backtrace:
     ▆
  1. ├─psygenet2r::psygenetDisease(...) at test_basic_disease.R:21:3
  2. │ └─psygenet2r:::ListPsyGeNETIds(database, "disease")
  3. │   └─psygenet2r:::download_data(oql)
  4. │     └─base::tryCatch(...)
  5. │       └─base (local) tryCatchList(expr, classes, parentenv, handlers)
  6. │         └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
  7. │           └─value[[3L]](cond)
  8. │             ├─base::rawToChar(...)
  9. │             └─RCurl::getURL(...)
 10. │               └─RCurl::curlPerform(curl = curl, .opts = opts, .encoding = .encoding)
 11. └─RCurl (local) `<fn>`(56L, "Recv failure: Connection reset by peer", TRUE)
── Error ('test_basic_disease.R:26:3'): Query multiple and existing disease into PsyGeNET ──
<RECV_ERROR/GenericCurlError/error/condition>
Error in `function (type, msg, asError = TRUE) 
{
    if (!is.character(type)) {
        i = match(type, CURLcodeValues)
        typeName = if (is.na(i)) 
            character()
        else names(CURLcodeValues)[i]
    }
    typeName = gsub("^CURLE_", "", typeName)
    fun = (if (asError) 
        stop
    else warning)
    fun(structure(list(message = msg, call = sys.call()), class = c(typeName, 
        "GenericCurlError", "error", "condition")))
}(56L, "Recv failure: Connection reset by peer", TRUE)`: Recv failure: Connection reset by peer
Backtrace:
     ▆
  1. ├─psygenet2r::psygenetDisease(...) at test_basic_disease.R:26:3
  2. │ └─psygenet2r:::ListPsyGeNETIds(database, "disease")
  3. │   └─psygenet2r:::download_data(oql)
  4. │     └─base::tryCatch(...)
  5. │       └─base (local) tryCatchList(expr, classes, parentenv, handlers)
  6. │         └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
  7. │           └─value[[3L]](cond)
  8. │             ├─base::rawToChar(...)
  9. │             └─RCurl::getURL(...)
 10. │               └─RCurl::curlPerform(curl = curl, .opts = opts, .encoding = .encoding)
 11. └─RCurl (local) `<fn>`(56L, "Recv failure: Connection reset by peer", TRUE)
── Error ('test_basic_disease.R:31:3'): Query single and non existing disease into PsyGeNET ──
<RECV_ERROR/GenericCurlError/error/condition>
Error in `function (type, msg, asError = TRUE) 
{
    if (!is.character(type)) {
        i = match(type, CURLcodeValues)
        typeName = if (is.na(i)) 
            character()
        else names(CURLcodeValues)[i]
    }
    typeName = gsub("^CURLE_", "", typeName)
    fun = (if (asError) 
        stop
    else warning)
    fun(structure(list(message = msg, call = sys.call()), class = c(typeName, 
        "GenericCurlError", "error", "condition")))
}(56L, "Recv failure: Connection reset by peer", TRUE)`: Recv failure: Connection reset by peer
Backtrace:
     ▆
  1. ├─testthat::expect_warning(...) at test_basic_disease.R:31:3
  2. │ └─testthat:::quasi_capture(...)
  3. │   ├─testthat (local) .capture(...)
  4. │   │ └─base::withCallingHandlers(...)
  5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
  6. ├─psygenet2r::psygenetDisease(...)
  7. │ └─psygenet2r:::ListPsyGeNETIds(database, "disease")
  8. │   └─psygenet2r:::download_data(oql)
  9. │     └─base::tryCatch(...)
 10. │       └─base (local) tryCatchList(expr, classes, parentenv, handlers)
 11. │         └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
 12. │           └─value[[3L]](cond)
 13. │             ├─base::rawToChar(...)
 14. │             └─RCurl::getURL(...)
 15. │               └─RCurl::curlPerform(curl = curl, .opts = opts, .encoding = .encoding)
 16. └─RCurl (local) `<fn>`(56L, "Recv failure: Connection reset by peer", TRUE)
── Error ('test_basic_disease.R:38:3'): Query multiple and non existing disease into PsyGeNET ──
<RECV_ERROR/GenericCurlError/error/condition>
Error in `function (type, msg, asError = TRUE) 
{
    if (!is.character(type)) {
        i = match(type, CURLcodeValues)
        typeName = if (is.na(i)) 
            character()
        else names(CURLcodeValues)[i]
    }
    typeName = gsub("^CURLE_", "", typeName)
    fun = (if (asError) 
        stop
    else warning)
    fun(structure(list(message = msg, call = sys.call()), class = c(typeName, 
        "GenericCurlError", "error", "condition")))
}(56L, "Recv failure: Connection reset by peer", TRUE)`: Recv failure: Connection reset by peer
Backtrace:
     ▆
  1. ├─testthat::expect_warning(...) at test_basic_disease.R:38:3
  2. │ └─testthat:::quasi_capture(...)
  3. │   ├─testthat (local) .capture(...)
  4. │   │ └─base::withCallingHandlers(...)
  5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
  6. ├─psygenet2r::psygenetDisease(...)
  7. │ └─psygenet2r:::ListPsyGeNETIds(database, "disease")
  8. │   └─psygenet2r:::download_data(oql)
  9. │     └─base::tryCatch(...)
 10. │       └─base (local) tryCatchList(expr, classes, parentenv, handlers)
 11. │         └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
 12. │           └─value[[3L]](cond)
 13. │             ├─base::rawToChar(...)
 14. │             └─RCurl::getURL(...)
 15. │               └─RCurl::curlPerform(curl = curl, .opts = opts, .encoding = .encoding)
 16. └─RCurl (local) `<fn>`(56L, "Recv failure: Connection reset by peer", TRUE)
── Error ('test_basic_disease.R:45:3'): Query multiple and existing and non existing disease into PsyGeNET ──
<RECV_ERROR/GenericCurlError/error/condition>
Error in `function (type, msg, asError = TRUE) 
{
    if (!is.character(type)) {
        i = match(type, CURLcodeValues)
        typeName = if (is.na(i)) 
            character()
        else names(CURLcodeValues)[i]
    }
    typeName = gsub("^CURLE_", "", typeName)
    fun = (if (asError) 
        stop
    else warning)
    fun(structure(list(message = msg, call = sys.call()), class = c(typeName, 
        "GenericCurlError", "error", "condition")))
}(56L, "Recv failure: Connection reset by peer", TRUE)`: Recv failure: Connection reset by peer
Backtrace:
     ▆
  1. ├─testthat::expect_warning(...) at test_basic_disease.R:45:3
  2. │ └─testthat:::quasi_capture(...)
  3. │   ├─testthat (local) .capture(...)
  4. │   │ └─base::withCallingHandlers(...)
  5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
  6. ├─psygenet2r::psygenetDisease(...)
  7. │ └─psygenet2r:::ListPsyGeNETIds(database, "disease")
  8. │   └─psygenet2r:::download_data(oql)
  9. │     └─base::tryCatch(...)
 10. │       └─base (local) tryCatchList(expr, classes, parentenv, handlers)
 11. │         └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
 12. │           └─value[[3L]](cond)
 13. │             ├─base::rawToChar(...)
 14. │             └─RCurl::getURL(...)
 15. │               └─RCurl::curlPerform(curl = curl, .opts = opts, .encoding = .encoding)
 16. └─RCurl (local) `<fn>`(56L, "Recv failure: Connection reset by peer", TRUE)
── Error ('test_basic_disease.R:52:3'): Query multiple, existing and duplicated disease into PsyGeNET ──
<RECV_ERROR/GenericCurlError/error/condition>
Error in `function (type, msg, asError = TRUE) 
{
    if (!is.character(type)) {
        i = match(type, CURLcodeValues)
        typeName = if (is.na(i)) 
            character()
        else names(CURLcodeValues)[i]
    }
    typeName = gsub("^CURLE_", "", typeName)
    fun = (if (asError) 
        stop
    else warning)
    fun(structure(list(message = msg, call = sys.call()), class = c(typeName, 
        "GenericCurlError", "error", "condition")))
}(56L, "Recv failure: Connection reset by peer", TRUE)`: Recv failure: Connection reset by peer
Backtrace:
     ▆
  1. ├─testthat::expect_warning(...) at test_basic_disease.R:52:3
  2. │ └─testthat:::quasi_capture(...)
  3. │   ├─testthat (local) .capture(...)
  4. │   │ └─base::withCallingHandlers(...)
  5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
  6. ├─psygenet2r::psygenetDisease(...)
  7. │ └─psygenet2r:::ListPsyGeNETIds(database, "disease")
  8. │   └─psygenet2r:::download_data(oql)
  9. │     └─base::tryCatch(...)
 10. │       └─base (local) tryCatchList(expr, classes, parentenv, handlers)
 11. │         └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
 12. │           └─value[[3L]](cond)
 13. │             ├─base::rawToChar(...)
 14. │             └─RCurl::getURL(...)
 15. │               └─RCurl::curlPerform(curl = curl, .opts = opts, .encoding = .encoding)
 16. └─RCurl (local) `<fn>`(56L, "Recv failure: Connection reset by peer", TRUE)
── Error ('test_basic_gene.R:6:3'): Test of object returned from 'psygenetGene' is S4 and 'PsyGeNET.Psy' ──
<RECV_ERROR/GenericCurlError/error/condition>
Error in `function (type, msg, asError = TRUE) 
{
    if (!is.character(type)) {
        i = match(type, CURLcodeValues)
        typeName = if (is.na(i)) 
            character()
        else names(CURLcodeValues)[i]
    }
    typeName = gsub("^CURLE_", "", typeName)
    fun = (if (asError) 
        stop
    else warning)
    fun(structure(list(message = msg, call = sys.call()), class = c(typeName, 
        "GenericCurlError", "error", "condition")))
}(56L, "Recv failure: Connection reset by peer", TRUE)`: Recv failure: Connection reset by peer
Backtrace:
     ▆
  1. ├─psygenet2r::psygenetGene(gene = "SLC6A4", database = "ALL", verbose = FALSE) at test_basic_gene.R:6:3
  2. │ └─psygenet2r:::ListPsyGeNETIds(database, "Gene")
  3. │   └─psygenet2r:::download_data(oql)
  4. │     └─base::tryCatch(...)
  5. │       └─base (local) tryCatchList(expr, classes, parentenv, handlers)
  6. │         └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
  7. │           └─value[[3L]](cond)
  8. │             ├─base::rawToChar(...)
  9. │             └─RCurl::getURL(...)
 10. │               └─RCurl::curlPerform(curl = curl, .opts = opts, .encoding = .encoding)
 11. └─RCurl (local) `<fn>`(56L, "Recv failure: Connection reset by peer", TRUE)
── Error ('test_basic_gene.R:19:3'): Query single and existing gene into PsyGeNET ──
<RECV_ERROR/GenericCurlError/error/condition>
Error in `function (type, msg, asError = TRUE) 
{
    if (!is.character(type)) {
        i = match(type, CURLcodeValues)
        typeName = if (is.na(i)) 
            character()
        else names(CURLcodeValues)[i]
    }
    typeName = gsub("^CURLE_", "", typeName)
    fun = (if (asError) 
        stop
    else warning)
    fun(structure(list(message = msg, call = sys.call()), class = c(typeName, 
        "GenericCurlError", "error", "condition")))
}(56L, "Recv failure: Connection reset by peer", TRUE)`: Recv failure: Connection reset by peer
Backtrace:
     ▆
  1. ├─psygenet2r::psygenetGene(gene = "SLC6A4", database = "ALL", verbose = FALSE) at test_basic_gene.R:19:3
  2. │ └─psygenet2r:::ListPsyGeNETIds(database, "Gene")
  3. │   └─psygenet2r:::download_data(oql)
  4. │     └─base::tryCatch(...)
  5. │       └─base (local) tryCatchList(expr, classes, parentenv, handlers)
  6. │         └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
  7. │           └─value[[3L]](cond)
  8. │             ├─base::rawToChar(...)
  9. │             └─RCurl::getURL(...)
 10. │               └─RCurl::curlPerform(curl = curl, .opts = opts, .encoding = .encoding)
 11. └─RCurl (local) `<fn>`(56L, "Recv failure: Connection reset by peer", TRUE)
── Error ('test_basic_gene.R:23:3'): Query multiple and existing genes into PsyGeNET ──
<RECV_ERROR/GenericCurlError/error/condition>
Error in `function (type, msg, asError = TRUE) 
{
    if (!is.character(type)) {
        i = match(type, CURLcodeValues)
        typeName = if (is.na(i)) 
            character()
        else names(CURLcodeValues)[i]
    }
    typeName = gsub("^CURLE_", "", typeName)
    fun = (if (asError) 
        stop
    else warning)
    fun(structure(list(message = msg, call = sys.call()), class = c(typeName, 
        "GenericCurlError", "error", "condition")))
}(56L, "Recv failure: Connection reset by peer", TRUE)`: Recv failure: Connection reset by peer
Backtrace:
     ▆
  1. ├─psygenet2r::psygenetGene(...) at test_basic_gene.R:23:3
  2. │ └─psygenet2r:::ListPsyGeNETIds(database, "Gene")
  3. │   └─psygenet2r:::download_data(oql)
  4. │     └─base::tryCatch(...)
  5. │       └─base (local) tryCatchList(expr, classes, parentenv, handlers)
  6. │         └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
  7. │           └─value[[3L]](cond)
  8. │             ├─base::rawToChar(...)
  9. │             └─RCurl::getURL(...)
 10. │               └─RCurl::curlPerform(curl = curl, .opts = opts, .encoding = .encoding)
 11. └─RCurl (local) `<fn>`(56L, "Recv failure: Connection reset by peer", TRUE)
── Error ('test_basic_gene.R:28:3'): Query single and non existing genes into PsyGeNET ──
<RECV_ERROR/GenericCurlError/error/condition>
Error in `function (type, msg, asError = TRUE) 
{
    if (!is.character(type)) {
        i = match(type, CURLcodeValues)
        typeName = if (is.na(i)) 
            character()
        else names(CURLcodeValues)[i]
    }
    typeName = gsub("^CURLE_", "", typeName)
    fun = (if (asError) 
        stop
    else warning)
    fun(structure(list(message = msg, call = sys.call()), class = c(typeName, 
        "GenericCurlError", "error", "condition")))
}(56L, "Recv failure: Connection reset by peer", TRUE)`: Recv failure: Connection reset by peer
Backtrace:
     ▆
  1. ├─testthat::expect_warning(...) at test_basic_gene.R:28:3
  2. │ └─testthat:::quasi_capture(...)
  3. │   ├─testthat (local) .capture(...)
  4. │   │ └─base::withCallingHandlers(...)
  5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
  6. ├─psygenet2r::psygenetGene(...)
  7. │ └─psygenet2r:::ListPsyGeNETIds(database, "Gene")
  8. │   └─psygenet2r:::download_data(oql)
  9. │     └─base::tryCatch(...)
 10. │       └─base (local) tryCatchList(expr, classes, parentenv, handlers)
 11. │         └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
 12. │           └─value[[3L]](cond)
 13. │             ├─base::rawToChar(...)
 14. │             └─RCurl::getURL(...)
 15. │               └─RCurl::curlPerform(curl = curl, .opts = opts, .encoding = .encoding)
 16. └─RCurl (local) `<fn>`(56L, "Recv failure: Connection reset by peer", TRUE)
── Error ('test_basic_gene.R:35:3'): Query multiple and non existing genes into PsyGeNET ──
<RECV_ERROR/GenericCurlError/error/condition>
Error in `function (type, msg, asError = TRUE) 
{
    if (!is.character(type)) {
        i = match(type, CURLcodeValues)
        typeName = if (is.na(i)) 
            character()
        else names(CURLcodeValues)[i]
    }
    typeName = gsub("^CURLE_", "", typeName)
    fun = (if (asError) 
        stop
    else warning)
    fun(structure(list(message = msg, call = sys.call()), class = c(typeName, 
        "GenericCurlError", "error", "condition")))
}(56L, "Recv failure: Connection reset by peer", TRUE)`: Recv failure: Connection reset by peer
Backtrace:
     ▆
  1. ├─testthat::expect_warning(...) at test_basic_gene.R:35:3
  2. │ └─testthat:::quasi_capture(...)
  3. │   ├─testthat (local) .capture(...)
  4. │   │ └─base::withCallingHandlers(...)
  5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
  6. ├─psygenet2r::psygenetGene(...)
  7. │ └─psygenet2r:::ListPsyGeNETIds(database, "Gene")
  8. │   └─psygenet2r:::download_data(oql)
  9. │     └─base::tryCatch(...)
 10. │       └─base (local) tryCatchList(expr, classes, parentenv, handlers)
 11. │         └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
 12. │           └─value[[3L]](cond)
 13. │             ├─base::rawToChar(...)
 14. │             └─RCurl::getURL(...)
 15. │               └─RCurl::curlPerform(curl = curl, .opts = opts, .encoding = .encoding)
 16. └─RCurl (local) `<fn>`(56L, "Recv failure: Connection reset by peer", TRUE)
── Error ('test_basic_gene.R:42:3'): Query multiple and existing and non existing genes into PsyGeNET ──
<RECV_ERROR/GenericCurlError/error/condition>
Error in `function (type, msg, asError = TRUE) 
{
    if (!is.character(type)) {
        i = match(type, CURLcodeValues)
        typeName = if (is.na(i)) 
            character()
        else names(CURLcodeValues)[i]
    }
    typeName = gsub("^CURLE_", "", typeName)
    fun = (if (asError) 
        stop
    else warning)
    fun(structure(list(message = msg, call = sys.call()), class = c(typeName, 
        "GenericCurlError", "error", "condition")))
}(56L, "Recv failure: Connection reset by peer", TRUE)`: Recv failure: Connection reset by peer
Backtrace:
     ▆
  1. ├─testthat::expect_warning(...) at test_basic_gene.R:42:3
  2. │ └─testthat:::quasi_capture(...)
  3. │   ├─testthat (local) .capture(...)
  4. │   │ └─base::withCallingHandlers(...)
  5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
  6. ├─psygenet2r::psygenetGene(...)
  7. │ └─psygenet2r:::ListPsyGeNETIds(database, "Gene")
  8. │   └─psygenet2r:::download_data(oql)
  9. │     └─base::tryCatch(...)
 10. │       └─base (local) tryCatchList(expr, classes, parentenv, handlers)
 11. │         └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
 12. │           └─value[[3L]](cond)
 13. │             ├─base::rawToChar(...)
 14. │             └─RCurl::getURL(...)
 15. │               └─RCurl::curlPerform(curl = curl, .opts = opts, .encoding = .encoding)
 16. └─RCurl (local) `<fn>`(56L, "Recv failure: Connection reset by peer", TRUE)
── Error ('test_basic_gene.R:49:3'): Query multiple, existing and duplicated genes into PsyGeNET ──
<RECV_ERROR/GenericCurlError/error/condition>
Error in `function (type, msg, asError = TRUE) 
{
    if (!is.character(type)) {
        i = match(type, CURLcodeValues)
        typeName = if (is.na(i)) 
            character()
        else names(CURLcodeValues)[i]
    }
    typeName = gsub("^CURLE_", "", typeName)
    fun = (if (asError) 
        stop
    else warning)
    fun(structure(list(message = msg, call = sys.call()), class = c(typeName, 
        "GenericCurlError", "error", "condition")))
}(56L, "Recv failure: Connection reset by peer", TRUE)`: Recv failure: Connection reset by peer
Backtrace:
     ▆
  1. ├─testthat::expect_warning(...) at test_basic_gene.R:49:3
  2. │ └─testthat:::quasi_capture(...)
  3. │   ├─testthat (local) .capture(...)
  4. │   │ └─base::withCallingHandlers(...)
  5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
  6. ├─psygenet2r::psygenetGene(...)
  7. │ └─psygenet2r:::ListPsyGeNETIds(database, "Gene")
  8. │   └─psygenet2r:::download_data(oql)
  9. │     └─base::tryCatch(...)
 10. │       └─base (local) tryCatchList(expr, classes, parentenv, handlers)
 11. │         └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
 12. │           └─value[[3L]](cond)
 13. │             ├─base::rawToChar(...)
 14. │             └─RCurl::getURL(...)
 15. │               └─RCurl::curlPerform(curl = curl, .opts = opts, .encoding = .encoding)
 16. └─RCurl (local) `<fn>`(56L, "Recv failure: Connection reset by peer", TRUE)
── Error ('test_basic_gene.R:59:3'): Query existing Gene Id as character into PsyGeNET ──
<RECV_ERROR/GenericCurlError/error/condition>
Error in `function (type, msg, asError = TRUE) 
{
    if (!is.character(type)) {
        i = match(type, CURLcodeValues)
        typeName = if (is.na(i)) 
            character()
        else names(CURLcodeValues)[i]
    }
    typeName = gsub("^CURLE_", "", typeName)
    fun = (if (asError) 
        stop
    else warning)
    fun(structure(list(message = msg, call = sys.call()), class = c(typeName, 
        "GenericCurlError", "error", "condition")))
}(56L, "Recv failure: Connection reset by peer", TRUE)`: Recv failure: Connection reset by peer
Backtrace:
     ▆
  1. ├─psygenet2r::psygenetGene(gene = "4852", database = "ALL", verbose = FALSE) at test_basic_gene.R:59:3
  2. │ └─psygenet2r:::ListPsyGeNETIds(database, "Gene")
  3. │   └─psygenet2r:::download_data(oql)
  4. │     └─base::tryCatch(...)
  5. │       └─base (local) tryCatchList(expr, classes, parentenv, handlers)
  6. │         └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
  7. │           └─value[[3L]](cond)
  8. │             ├─base::rawToChar(...)
  9. │             └─RCurl::getURL(...)
 10. │               └─RCurl::curlPerform(curl = curl, .opts = opts, .encoding = .encoding)
 11. └─RCurl (local) `<fn>`(56L, "Recv failure: Connection reset by peer", TRUE)
── Error ('test_basic_gene.R:66:3'): Query existing Gene Id as numeric into PsyGeNET ──
<RECV_ERROR/GenericCurlError/error/condition>
Error in `function (type, msg, asError = TRUE) 
{
    if (!is.character(type)) {
        i = match(type, CURLcodeValues)
        typeName = if (is.na(i)) 
            character()
        else names(CURLcodeValues)[i]
    }
    typeName = gsub("^CURLE_", "", typeName)
    fun = (if (asError) 
        stop
    else warning)
    fun(structure(list(message = msg, call = sys.call()), class = c(typeName, 
        "GenericCurlError", "error", "condition")))
}(56L, "Recv failure: Connection reset by peer", TRUE)`: Recv failure: Connection reset by peer
Backtrace:
     ▆
  1. ├─psygenet2r::psygenetGene(gene = 4852, database = "ALL", verbose = FALSE) at test_basic_gene.R:66:3
  2. │ └─psygenet2r:::ListPsyGeNETIds(database, "Gene")
  3. │   └─psygenet2r:::download_data(oql)
  4. │     └─base::tryCatch(...)
  5. │       └─base (local) tryCatchList(expr, classes, parentenv, handlers)
  6. │         └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
  7. │           └─value[[3L]](cond)
  8. │             ├─base::rawToChar(...)
  9. │             └─RCurl::getURL(...)
 10. │               └─RCurl::curlPerform(curl = curl, .opts = opts, .encoding = .encoding)
 11. └─RCurl (local) `<fn>`(56L, "Recv failure: Connection reset by peer", TRUE)

[ FAIL 16 | WARN 0 | SKIP 0 | PASS 2 ]
Error: Test failures
Execution halted