Running ‘testthat.R’ [14s/44s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > #Workaround for https://github.com/hadley/testthat/issues/144
  > Sys.setenv ("R_TESTS" = "")
  > 
  > library(testthat)
  > library(multiplyr)
  Loading required package: magrittr
  
  Attaching package: 'magrittr'
  
  The following objects are masked from 'package:testthat':
  
      equals, is_less_than, not
  
  
  Attaching package: 'multiplyr'
  
  The following objects are masked from 'package:stats':
  
      filter, lag
  
  > 
  > test_check("multiplyr")
  1. Error: $set_data(NULL, NULL) sets entire dataset (@test-class.R#699) --------
  attempt to apply non-function
  1: dat$set_data(NULL, NULL, data.frame(x = 100:1, G = rep(c("A", "B"), length.out = 100), 
         stringsAsFactors = FALSE)) at testthat/test-class.R:699
  2: `[<-`(`*tmp*`, , cols, value = structure(c(100L, 99L, 98L, 97L, 96L, 95L, 94L, 93L, 
     92L, 91L, 90L, 89L, 88L, 87L, 86L, 85L, 84L, 83L, 82L, 81L, 80L, 79L, 78L, 77L, 76L, 
     75L, 74L, 73L, 72L, 71L, 70L, 69L, 68L, 67L, 66L, 65L, 64L, 63L, 62L, 61L, 60L, 59L, 
     58L, 57L, 56L, 55L, 54L, 53L, 52L, 51L, 50L, 49L, 48L, 47L, 46L, 45L, 44L, 43L, 42L, 
     41L, 40L, 39L, 38L, 37L, 36L, 35L, 34L, 33L, 32L, 31L, 30L, 29L, 28L, 27L, 26L, 25L, 
     24L, 23L, 22L, 21L, 20L, 19L, 18L, 17L, 16L, 15L, 14L, 13L, 12L, 11L, 10L, 9L, 8L, 
     7L, 6L, 5L, 4L, 3L, 2L, 1L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 
     1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
     2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 
     1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
     2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 
     1L, 2L), .Dim = c(100L, 2L)))
  3: `[<-`(`*tmp*`, , cols, value = structure(c(100L, 99L, 98L, 97L, 96L, 95L, 94L, 93L, 
     92L, 91L, 90L, 89L, 88L, 87L, 86L, 85L, 84L, 83L, 82L, 81L, 80L, 79L, 78L, 77L, 76L, 
     75L, 74L, 73L, 72L, 71L, 70L, 69L, 68L, 67L, 66L, 65L, 64L, 63L, 62L, 61L, 60L, 59L, 
     58L, 57L, 56L, 55L, 54L, 53L, 52L, 51L, 50L, 49L, 48L, 47L, 46L, 45L, 44L, 43L, 42L, 
     41L, 40L, 39L, 38L, 37L, 36L, 35L, 34L, 33L, 32L, 31L, 30L, 29L, 28L, 27L, 26L, 25L, 
     24L, 23L, 22L, 21L, 20L, 19L, 18L, 17L, 16L, 15L, 14L, 13L, 12L, 11L, 10L, 9L, 8L, 
     7L, 6L, 5L, 4L, 3L, 2L, 1L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 
     1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
     2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 
     1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
     2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 
     1L, 2L), .Dim = c(100L, 2L)))
  4: .local(x, i, j, ..., value)
  5: SetCols.bm(x, j, value)
  6: typeof(value)
  7: (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("matrix"), structure(function (x) 
     standardGeneric("typeof"), generic = structure("typeof", package = "base"), package = "base", group = list(), valueClass = character(0), signature = "x", default = structure(function (x) 
     .Internal(typeof(x)), target = structure("ANY", class = structure("signature", package = "methods"), .Names = "x", package = "methods"), defined = structure("ANY", class = structure("signature", package = "methods"), .Names = "x", package = "methods"), generic = structure("typeof", package = "base"), class = structure("derivedDefaultMethod", package = "methods")), skeleton = (structure(function (x) 
     .Internal(typeof(x)), target = structure("ANY", class = structure("signature", package = "methods"), .Names = "x", package = "methods"), defined = structure("ANY", class = structure("signature", package = "methods"), .Names = "x", package = "methods"), generic = structure("typeof", package = "base"), class = structure("derivedDefaultMethod", package = "methods")))(x), class = structure("standardGeneric", package = "methods")), 
         <environment>)
  8: .findInheritedMethods(classes, fdef, mtable)
  9: .sigLabel(classes)
  10: paste(sig, collapse = "#")
  11: (function (x) 
     x$.self$finalize())(<environment>)
  
  Error in signalCondition(e) : 
    no function to return from, jumping to top level
  Calls: <Anonymous> -> .handleSimpleError -> h -> signalCondition
  2. Error: $set_data(NULL, NULL) sets entire dataset (@test-class.R#699) --------
  attempt to apply non-function
  1: dat$set_data(NULL, NULL, data.frame(x = 100:1, G = rep(c("A", "B"), length.out = 100), 
         stringsAsFactors = FALSE)) at testthat/test-class.R:699
  2: `[<-`(`*tmp*`, , cols, value = structure(c(100L, 99L, 98L, 97L, 96L, 95L, 94L, 93L, 
     92L, 91L, 90L, 89L, 88L, 87L, 86L, 85L, 84L, 83L, 82L, 81L, 80L, 79L, 78L, 77L, 76L, 
     75L, 74L, 73L, 72L, 71L, 70L, 69L, 68L, 67L, 66L, 65L, 64L, 63L, 62L, 61L, 60L, 59L, 
     58L, 57L, 56L, 55L, 54L, 53L, 52L, 51L, 50L, 49L, 48L, 47L, 46L, 45L, 44L, 43L, 42L, 
     41L, 40L, 39L, 38L, 37L, 36L, 35L, 34L, 33L, 32L, 31L, 30L, 29L, 28L, 27L, 26L, 25L, 
     24L, 23L, 22L, 21L, 20L, 19L, 18L, 17L, 16L, 15L, 14L, 13L, 12L, 11L, 10L, 9L, 8L, 
     7L, 6L, 5L, 4L, 3L, 2L, 1L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 
     1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
     2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 
     1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
     2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 
     1L, 2L), .Dim = c(100L, 2L)))
  3: `[<-`(`*tmp*`, , cols, value = structure(c(100L, 99L, 98L, 97L, 96L, 95L, 94L, 93L, 
     92L, 91L, 90L, 89L, 88L, 87L, 86L, 85L, 84L, 83L, 82L, 81L, 80L, 79L, 78L, 77L, 76L, 
     75L, 74L, 73L, 72L, 71L, 70L, 69L, 68L, 67L, 66L, 65L, 64L, 63L, 62L, 61L, 60L, 59L, 
     58L, 57L, 56L, 55L, 54L, 53L, 52L, 51L, 50L, 49L, 48L, 47L, 46L, 45L, 44L, 43L, 42L, 
     41L, 40L, 39L, 38L, 37L, 36L, 35L, 34L, 33L, 32L, 31L, 30L, 29L, 28L, 27L, 26L, 25L, 
     24L, 23L, 22L, 21L, 20L, 19L, 18L, 17L, 16L, 15L, 14L, 13L, 12L, 11L, 10L, 9L, 8L, 
     7L, 6L, 5L, 4L, 3L, 2L, 1L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 
     1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
     2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 
     1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 
     2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 
     1L, 2L), .Dim = c(100L, 2L)))
  4: .local(x, i, j, ..., value)
  5: SetCols.bm(x, j, value)
  6: typeof(value)
  7: (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("matrix"), structure(function (x) 
     standardGeneric("typeof"), generic = structure("typeof", package = "base"), package = "base", group = list(), valueClass = character(0), signature = "x", default = structure(function (x) 
     .Internal(typeof(x)), target = structure("ANY", class = structure("signature", package = "methods"), .Names = "x", package = "methods"), defined = structure("ANY", class = structure("signature", package = "methods"), .Names = "x", package = "methods"), generic = structure("typeof", package = "base"), class = structure("derivedDefaultMethod", package = "methods")), skeleton = (structure(function (x) 
     .Internal(typeof(x)), target = structure("ANY", class = structure("signature", package = "methods"), .Names = "x", package = "methods"), defined = structure("ANY", class = structure("signature", package = "methods"), .Names = "x", package = "methods"), generic = structure("typeof", package = "base"), class = structure("derivedDefaultMethod", package = "methods")))(x), class = structure("standardGeneric", package = "methods")), 
         <environment>)
  8: .findInheritedMethods(classes, fdef, mtable)
  9: .sigLabel(classes)
  10: paste(sig, collapse = "#")
  11: (function (x) 
     x$.self$finalize())(<environment>)
  
  Error in signalCondition(e) : 
    no function to return from, jumping to top level
  Calls: <Anonymous> -> .handleSimpleError -> h -> signalCondition
  testthat results ================================================================
  OK: 957 SKIPPED: 0 FAILED: 2
  1. Error: $set_data(NULL, NULL) sets entire dataset (@test-class.R#699) 
  2. Error: $set_data(NULL, NULL) sets entire dataset (@test-class.R#699) 
  
  Error: testthat unit tests failed
  Execution halted