Running ‘testthat.R’ [1s/42s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library("testthat")
  > library("lumendb")
  > 
  > test_check("lumendb")
  1. Error: Print Notice Summary (@tests.R#10) -----------------------------------
  object of type 'externalptr' is not subsettable
  1: summary(n) at testthat/tests.R:10
  2: summary.lumen_notice(n)
  3: cat(object$type, " notice (", object$id, "): ", object$title, "\n", sep = "")
  
  2. Error: Retrieve Entities (@tests.R#14) --------------------------------------
  invalid 'n' argument
  1: ldentities(list(term = "joe")) at testthat/tests.R:14
  2: message(sprintf("Page %s of %s Returned. Response contains %s of %s %s. ", x$meta$current_page, 
         x$meta$total_pages, ifelse(x$meta$per_page < x$meta$total_entries, x$meta$per_page, 
             x$meta$total_entries), x$meta$total_entries, ngettext(x$meta$total_entries, 
             "entity", "entities")))
  3: sprintf("Page %s of %s Returned. Response contains %s of %s %s. ", x$meta$current_page, 
         x$meta$total_pages, ifelse(x$meta$per_page < x$meta$total_entries, x$meta$per_page, 
             x$meta$total_entries), x$meta$total_entries, ngettext(x$meta$total_entries, 
             "entity", "entities"))
  4: ngettext(x$meta$total_entries, "entity", "entities")
  
  3. Error: Retrieve Topics (@tests.R#19) ----------------------------------------
  cannot coerce type 'externalptr' to vector of type 'list'
  1: ldtopics() at testthat/tests.R:19
  2: structure(lapply(x[[1]], `class<-`, "lumen_topic"))
  3: lapply(x[[1]], `class<-`, "lumen_topic")
  4: as.list(X)
  5: as.list.default(X)
  
  4. Error: Search Works (@tests.R#24) -------------------------------------------
  invalid 'n' argument
  1: ldsearch(list(term = "youtube")) at testthat/tests.R:24
  2: message(sprintf("Page %s of %s Returned. Response contains %s of %s %s. ", x$meta$current_page, 
         x$meta$total_pages, x$meta$per_page, x$meta$total_entries, ngettext(x$meta$total_entries, 
             "notice", "notices")))
  3: sprintf("Page %s of %s Returned. Response contains %s of %s %s. ", x$meta$current_page, 
         x$meta$total_pages, x$meta$per_page, x$meta$total_entries, ngettext(x$meta$total_entries, 
             "notice", "notices"))
  4: ngettext(x$meta$total_entries, "notice", "notices")
  
  testthat results ================================================================
  OK: 6 SKIPPED: 0 FAILED: 4
  1. Error: Print Notice Summary (@tests.R#10) 
  2. Error: Retrieve Entities (@tests.R#14) 
  3. Error: Retrieve Topics (@tests.R#19) 
  4. Error: Search Works (@tests.R#24) 
  
  Error: testthat unit tests failed
  Execution halted