Running ‘testthat.R’ [3s/26s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(biolink)
  > 
  > test_check("biolink")
  ── 1. Error: Gene Ontology tag retrieval (@test-tags-go.r#10)  ─────────────────
  unable to find an inherited method for function 'dbQuoteString' for signature '"try-error", "character"'
  1: expect_equal(query_go(ids, "name"), names) at testthat/test-tags-go.r:10
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: query_go(ids, "name")
  5: glue::glue_sql(query, id = id, .con = gocon)
  6: DBI::SQL(glue(..., .envir = .envir, .transformer = sql_quote_transformer(.con)))
  7: glue(..., .envir = .envir, .transformer = sql_quote_transformer(.con))
  8: glue_data(.x = NULL, ..., .sep = .sep, .envir = .envir, .open = .open, .close = .close)
  9: (function (expr) 
     as.character(.transformer(expr, env)))("id*")
  10: .transformer(expr, env)
  11: DBI::dbQuoteString(conn = connection, res)
  12: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list("try-error", "character"), new("standardGeneric", .Data = function (conn, 
         x, ...) 
     standardGeneric("dbQuoteString"), generic = structure("dbQuoteString", package = "DBI"), 
         package = "DBI", group = list(), valueClass = character(0), signature = c("conn", 
         "x"), default = NULL, skeleton = (function (conn, x, ...) 
         stop("invalid call in method dispatch to 'dbQuoteString' (no default method)", 
             domain = NA))(conn, x, ...)), <environment>)
  13: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  ── 2. Error: Gene Ontology tag substitution (@test-tags-go.r#19)  ──────────────
  unable to find an inherited method for function 'dbQuoteString' for signature '"try-error", "character"'
  1: link_go(id, "<name>", format = "html") at testthat/test-tags-go.r:19
  2: sub_var(text, id, "go")
  3: withVisible(`_f`(x = x, id = id, db = db))
  4: `_f`(x = x, id = id, db = db)
  5: query_go(id, field)
  6: glue::glue_sql(query, id = id, .con = gocon)
  7: DBI::SQL(glue(..., .envir = .envir, .transformer = sql_quote_transformer(.con)))
  8: glue(..., .envir = .envir, .transformer = sql_quote_transformer(.con))
  9: glue_data(.x = NULL, ..., .sep = .sep, .envir = .envir, .open = .open, .close = .close)
  10: (function (expr) 
     as.character(.transformer(expr, env)))("id*")
  11: .transformer(expr, env)
  12: DBI::dbQuoteString(conn = connection, res)
  13: (function (classes, fdef, mtable) 
     {
         methods <- .findInheritedMethods(classes, fdef, mtable)
         if (length(methods) == 1L) 
             return(methods[[1L]])
         else if (length(methods) == 0L) {
             cnames <- paste0("\"", vapply(classes, as.character, ""), "\"", collapse = ", ")
             stop(gettextf("unable to find an inherited method for function %s for signature %s", 
                 sQuote(fdef@generic), sQuote(cnames)), domain = NA)
         }
         else stop("Internal error in finding inherited methods; didn't return a unique method", 
             domain = NA)
     })(list("try-error", "character"), new("standardGeneric", .Data = function (conn, 
         x, ...) 
     standardGeneric("dbQuoteString"), generic = structure("dbQuoteString", package = "DBI"), 
         package = "DBI", group = list(), valueClass = character(0), signature = c("conn", 
         "x"), default = NULL, skeleton = (function (conn, x, ...) 
         stop("invalid call in method dispatch to 'dbQuoteString' (no default method)", 
             domain = NA))(conn, x, ...)), <environment>)
  14: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 116 SKIPPED: 1 FAILED: 2
  1. Error: Gene Ontology tag retrieval (@test-tags-go.r#10) 
  2. Error: Gene Ontology tag substitution (@test-tags-go.r#19) 
  
  Error: testthat unit tests failed
  Execution halted