Running ‘testthat.R’ [497s/517s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > #library(ffbase)
  > library(testthat)
  > 
  > test_check("ffbase")
  Loading required package: ffbase
  Loading required package: ff
  Loading required package: bit
  Attaching package bit
  package:bit (c) 2008-2012 Jens Oehlschlaegel (GPL-2)
  creators: bit bitwhich
  coercion: as.logical as.integer as.bit as.bitwhich which
  operator: ! & | xor != ==
  querying: print length any all min max range sum summary
  bit access: length<- [ [<- [[ [[<-
  for more help type ?bit
  
  Attaching package: 'bit'
  
  The following object is masked from 'package:base':
  
      xor
  
  Attaching package ff
  - getOption("fftempdir")=="/tmp/RtmpYcKJZt"
  
  - getOption("ffextension")=="ff"
  
  - getOption("ffdrop")==TRUE
  
  - getOption("fffinonexit")==TRUE
  
  - getOption("ffpagesize")==65536
  
  - getOption("ffcaching")=="mmnoflush"  -- consider "ffeachflush" if your system stalls on large writes
  
  - getOption("ffbatchbytes")==16777216 -- consider a different value for tuning your system
  
  - getOption("ffmaxbytes")==536870912 -- consider a different value for tuning your system
  
  
  Attaching package: 'ff'
  
  The following objects are masked from 'package:bit':
  
      clone, clone.default, clone.list
  
  The following objects are masked from 'package:utils':
  
      write.csv, write.csv2
  
  The following objects are masked from 'package:base':
  
      is.factor, is.ordered
  
  Registered S3 methods overwritten by 'ffbase':
    method   from
    [.ff     ff  
    [.ffdf   ff  
    [<-.ff   ff  
    [<-.ffdf ff  
  
  Attaching package: 'ffbase'
  
  The following objects are masked from 'package:ff':
  
      [.ff, [.ffdf, [<-.ff, [<-.ffdf
  
  The following objects are masked from 'package:base':
  
      %in%, table
  
  ── 1. Error: Coercing an ff vector works (@testffappend.R#65)  ─────────────────
  clone not defined for type
  1: ffappend(fx, fy, by = 2) at testthat/testffappend.R:65
  2: coerce_to_highest_vmode(x = x, y = y, onlytest = FALSE)
  3: clone(x, vmode = needtocoerce$coerceto)
  4: clone.default(x, vmode = needtocoerce$coerceto)
  5: stop("clone not defined for type")
  
  ── 2. Error: Coercing an ffdf works (@testffappend.R#89)  ──────────────────────
  clone not defined for type
  1: ffdfappend(x = x, dat = dat, by = 2) at testthat/testffappend.R:89
  2: coerce_to_highest_vmode(x = x, y = dat, onlytest = FALSE)
  3: clone(x[[column]], vmode = needtocoerce$coerceto[i])
  4: clone.default(x[[column]], vmode = needtocoerce$coerceto[i])
  5: stop("clone not defined for type")
  
  ── 3. Error: ffdfplyr works (@testffdfplyr.R#18)  ──────────────────────────────
  replacement has 3 rows, data has 2
  1: ffdfdply(x = ffiris, split = ffiris$Species, FUN = function(x) testFUN(x), BATCHBYTES = 5000, 
         trace = TRUE) at testthat/testffdfplyr.R:18
  2: `$<-`(`*tmp*`, "group", value = structure(list(), physical = <pointer: 0x31d58e0>, virtual = structure(list(), Length = 150L, Symmetric = FALSE), class = c("ff_vector", 
     "ff")))
  3: `$<-.ffdf`(`*tmp*`, "group", value = structure(list(), physical = <pointer: 0x31d58e0>, virtual = structure(list(), Length = 150L, Symmetric = FALSE), class = c("ff_vector", 
     "ff")))
  4: `[[<-`(`*tmp*`, i, value = structure(list(), physical = <pointer: 0x31d58e0>, virtual = structure(list(), Length = 150L, Symmetric = FALSE), class = c("ff_vector", 
     "ff")))
  5: `[[<-.ffdf`(`*tmp*`, i, value = structure(list(), physical = <pointer: 0x31d58e0>, virtual = structure(list(), Length = 150L, Symmetric = FALSE), class = c("ff_vector", 
     "ff")))
  6: `[<-`(`*tmp*`, vnam, , value = list(VirtualVmode = "integer", AsIs = FALSE, VirtualIsMatrix = FALSE, 
         PhysicalIsMatrix = FALSE, PhysicalElementNo = 3L, PhysicalFirstCol = 1L, PhysicalLastCol = 1L))
  7: `[<-.data.frame`(`*tmp*`, vnam, , value = list(VirtualVmode = "integer", AsIs = FALSE, 
         VirtualIsMatrix = FALSE, PhysicalIsMatrix = FALSE, PhysicalElementNo = 3L, PhysicalFirstCol = 1L, 
         PhysicalLastCol = 1L))
  8: xpdrows.data.frame(x, rows, new.rows)
  9: `[[<-`(`*tmp*`, i, value = c("integer", "integer", NA))
  10: `[[<-.data.frame`(`*tmp*`, i, value = c("integer", "integer", NA))
  11: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, nrows), domain = NA)
  
  ── 4. Error: merge.ffdf inner join works (@testmerge.R#33)  ────────────────────
  replacement has 2 rows, data has 1
  1: merge(books, authors, by.x = "name", by.y = "surname", all.x = FALSE, all.y = FALSE) at testthat/testmerge.R:33
  2: merge.ffdf(books, authors, by.x = "name", by.y = "surname", all.x = FALSE, all.y = FALSE)
  3: ffbaseffdfindexget(y[yvars], index = matchidx[updatepositions], ...)
  4: as.ffdf(res)
  5: as.ffdf.list(res)
  6: `[[<-`(`*tmp*`, measure, value = structure(list(), physical = <pointer: 0x49e0ae0>, virtual = structure(list(), Length = 2500L, Symmetric = FALSE, Levels = c("no", 
     "yes"), ramclass = "factor"), class = c("ff_vector", "ff")))
  7: `[[<-.ffdf`(`*tmp*`, measure, value = structure(list(), physical = <pointer: 0x49e0ae0>, virtual = structure(list(), Length = 2500L, Symmetric = FALSE, Levels = c("no", 
     "yes"), ramclass = "factor"), class = c("ff_vector", "ff")))
  8: `[<-`(`*tmp*`, vnam, , value = list(VirtualVmode = "integer", AsIs = FALSE, VirtualIsMatrix = FALSE, 
         PhysicalIsMatrix = FALSE, PhysicalElementNo = 2L, PhysicalFirstCol = 1L, PhysicalLastCol = 1L))
  9: `[<-.data.frame`(`*tmp*`, vnam, , value = list(VirtualVmode = "integer", AsIs = FALSE, 
         VirtualIsMatrix = FALSE, PhysicalIsMatrix = FALSE, PhysicalElementNo = 2L, PhysicalFirstCol = 1L, 
         PhysicalLastCol = 1L))
  10: xpdrows.data.frame(x, rows, new.rows)
  11: `[[<-`(`*tmp*`, i, value = c("integer", NA))
  12: `[[<-.data.frame`(`*tmp*`, i, value = c("integer", NA))
  13: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, nrows), domain = NA)
  
  ── 5. Error: merge.ffdf left outer join works (@testmerge.R#71)  ───────────────
  replacement has 5 rows, data has 4
  1: merge(books, authors, by.x = "name", by.y = "surname", all.x = TRUE, all.y = FALSE) at testthat/testmerge.R:71
  2: merge.ffdf(books, authors, by.x = "name", by.y = "surname", all.x = TRUE, all.y = FALSE)
  3: `[[<-`(`*tmp*`, newyvars[i], value = structure(list(), physical = <pointer: 0x5352d80>, virtual = structure(list(), Length = 3500L, Symmetric = FALSE, Levels = c("Australia", 
     "UK", "US"), ramclass = "factor"), class = c("ff_vector", "ff")))
  4: `[[<-.ffdf`(`*tmp*`, newyvars[i], value = structure(list(), physical = <pointer: 0x5352d80>, virtual = structure(list(), Length = 3500L, Symmetric = FALSE, Levels = c("Australia", 
     "UK", "US"), ramclass = "factor"), class = c("ff_vector", "ff")))
  5: `[<-`(`*tmp*`, vnam, , value = list(VirtualVmode = "integer", AsIs = FALSE, VirtualIsMatrix = FALSE, 
         PhysicalIsMatrix = FALSE, PhysicalElementNo = 5L, PhysicalFirstCol = 1L, PhysicalLastCol = 1L))
  6: `[<-.data.frame`(`*tmp*`, vnam, , value = list(VirtualVmode = "integer", AsIs = FALSE, 
         VirtualIsMatrix = FALSE, PhysicalIsMatrix = FALSE, PhysicalElementNo = 5L, PhysicalFirstCol = 1L, 
         PhysicalLastCol = 1L))
  7: xpdrows.data.frame(x, rows, new.rows)
  8: `[[<-`(`*tmp*`, i, value = c("integer", "integer", "integer", "double", NA))
  9: `[[<-.data.frame`(`*tmp*`, i, value = c("integer", "integer", "integer", "double", 
     NA))
  10: 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: 247 SKIPPED: 3 FAILED: 5
  1. Error: Coercing an ff vector works (@testffappend.R#65) 
  2. Error: Coercing an ffdf works (@testffappend.R#89) 
  3. Error: ffdfplyr works (@testffdfplyr.R#18) 
  4. Error: merge.ffdf inner join works (@testmerge.R#33) 
  5. Error: merge.ffdf left outer join works (@testmerge.R#71) 
  
  Error: testthat unit tests failed
  Execution halted