Running ‘testthat.R’ [2s/3s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(Rpolyhedra)
  > library(stringr)
  > library(futile.logger)
  > library(rgl)
  > 
  > 
  > test_check("Rpolyhedra")
  ERROR [2018-10-21 19:00:32] catched error replacement has 1 row, data has 0
  ── 1. Error: Scrape test rpolyhedra 5 regular solids (@test_rpolyhedra_lib.R#9) 
  object 'scraped.name' not found
  1: task$run() at testthat/test_rpolyhedra_lib.R:9
  2: self$polyhedra.db$getPolyhedron(source = source, polyhedron.name = scraped.name)
  3: self$existsPolyhedron(source = source, polyhedron.name = polyhedron.name) at /Users/kenarab/git/Rpolyhedra/R/db-lib.R:749
  4: self$getPolyhedronFilename(source = source, polyhedron.name = polyhedron.name, extension = ".RDS.zip") at /Users/kenarab/git/Rpolyhedra/R/db-lib.R:728
  5: paste(self$getPolyhedraSourceDir(source), self$ledger$getCRCPolyhedronName(source = source, 
         polyhedron.name = polyhedron.name), extension, sep = "") at /Users/kenarab/git/Rpolyhedra/R/db-lib.R:743
  6: self$ledger$getCRCPolyhedronName(source = source, polyhedron.name = polyhedron.name)
  7: which(self$df$source == source & tolower(self$df$scraped.name) == tolower(polyhedron.name)) at /Users/kenarab/git/Rpolyhedra/R/ledger-lib.R:113
  8: tolower(polyhedron.name)
  
  ERROR [2018-10-21 19:00:32] catched error replacement has 1 row, data has 0
  ── 2. Error: Scrape test rpolyhedra for 12% of available polyhedra (@test_rpolyh
  object 'scraped.name' not found
  1: task$run() at testthat/test_rpolyhedra_lib.R:19
  2: self$polyhedra.db$getPolyhedron(source = source, polyhedron.name = scraped.name)
  3: self$existsPolyhedron(source = source, polyhedron.name = polyhedron.name) at /Users/kenarab/git/Rpolyhedra/R/db-lib.R:749
  4: self$getPolyhedronFilename(source = source, polyhedron.name = polyhedron.name, extension = ".RDS.zip") at /Users/kenarab/git/Rpolyhedra/R/db-lib.R:728
  5: paste(self$getPolyhedraSourceDir(source), self$ledger$getCRCPolyhedronName(source = source, 
         polyhedron.name = polyhedron.name), extension, sep = "") at /Users/kenarab/git/Rpolyhedra/R/db-lib.R:743
  6: self$ledger$getCRCPolyhedronName(source = source, polyhedron.name = polyhedron.name)
  7: which(self$df$source == source & tolower(self$df$scraped.name) == tolower(polyhedron.name)) at /Users/kenarab/git/Rpolyhedra/R/ledger-lib.R:113
  8: tolower(polyhedron.name)
  
  ── 3. Error: test getting properties of scraped regular solids (@test_rpolyhedra
  replacement has 1 row, data has 0
  1: tetrahedron$checkProperties(expected.vertices = 4, expected.faces = 4) at testthat/test_rpolyhedra_lib.R:26
  2: self$state$checkEdgesConsistency()
  3: self$inferEdges()
  4: `[<-`(`*tmp*`, row.edge, , value = c(8, 9, 1))
  5: `[<-.data.frame`(`*tmp*`, row.edge, , value = c(8, 9, 1))
  6: xpdrows.data.frame(x, rows, new.rows)
  7: `[[<-`(`*tmp*`, i, value = NA_real_)
  8: `[[<-.data.frame`(`*tmp*`, i, value = NA_real_)
  9: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, nrows), domain = NA)
  
  ── 4. Error: test check edges consistency for 7% of available polyhedra (@test_r
  replacement has 1 row, data has 0
  1: task$run() at testthat/test_rpolyhedra_lib.R:46
  2: current.polyhedron$state$checkEdgesConsistency()
  3: self$inferEdges()
  4: `[<-`(`*tmp*`, row.edge, , value = c(13, 17, 1))
  5: `[<-.data.frame`(`*tmp*`, row.edge, , value = c(13, 17, 1))
  6: xpdrows.data.frame(x, rows, new.rows)
  7: `[[<-`(`*tmp*`, i, value = NA_real_)
  8: `[[<-.data.frame`(`*tmp*`, i, value = NA_real_)
  9: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, nrows), domain = NA)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 2 SKIPPED: 0 FAILED: 4
  1. Error: Scrape test rpolyhedra 5 regular solids (@test_rpolyhedra_lib.R#9) 
  2. Error: Scrape test rpolyhedra for 12% of available polyhedra (@test_rpolyhedra_lib.R#19) 
  3. Error: test getting properties of scraped regular solids (@test_rpolyhedra_lib.R#26) 
  4. Error: test check edges consistency for 7% of available polyhedra (@test_rpolyhedra_lib.R#46) 
  
  Error: testthat unit tests failed
  Execution halted