Running ‘testthat.R’ [263s/515s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(RStoolbox) 
  > 
  > 
  > Sys.setenv("R_TESTS" = "") ## needed to pass R CMD check: https://github.com/hadley/testthat/issues/144
  > 
  > test_check("RStoolbox")
  ── 1. Error: maximum likelihood model  ─────────────────────────────────────────
  unable to find an inherited method for function 'row.names<-' for signature '"data.frame", "NULL"'
  1: expect_is(superClass(lsat, trainData = poly, responseCol = "class", model = "mlc", 
         trainPartition = 0.7, predict = FALSE), "superClass")
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: superClass(lsat, trainData = poly, responseCol = "class", model = "mlc", trainPartition = 0.7, 
         predict = FALSE)
  5: data.frame(x = over(clip, valData)[[responseCol]])
  6: over(clip, valData)
  7: over(clip, valData)
  8: .local(x, y, returnList, fn, ...)
  9: `row.names<-`(`*tmp*`, value = NULL)
  10: (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("data.frame", "NULL"), new("standardGeneric", .Data = function (x, value) 
     standardGeneric("row.names<-"), generic = structure("row.names<-", package = "rgeos"), 
         package = "rgeos", group = list(), valueClass = character(0), signature = c("x", 
         "value"), default = NULL, skeleton = (function (x, value) 
         stop("invalid call in method dispatch to 'row.names<-' (no default method)", 
             domain = NA))(x, value)), <environment>)
  11: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  ── 2. Error: (unknown) (@test-superClass.R#66)  ────────────────────────────────
  unable to find an inherited method for function 'row.names<-' for signature '"data.frame", "NULL"'
  1: superClass(img, trainData = train, nSamples = 50, responseCol = "class", model = "pls", 
         tuneGrid = data.frame(ncomp = 3), tuneLength = 1, trainPartition = 0.7, predict = FALSE) at testthat/test-superClass.R:66
  2: data.frame(x = over(clip, valData)[[responseCol]])
  3: over(clip, valData)
  4: over(clip, valData)
  5: .local(x, y, returnList, fn, ...)
  6: `row.names<-`(`*tmp*`, value = NULL)
  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("data.frame", "NULL"), new("standardGeneric", .Data = function (x, value) 
     standardGeneric("row.names<-"), generic = structure("row.names<-", package = "rgeos"), 
         package = "rgeos", group = list(), valueClass = character(0), signature = c("x", 
         "value"), default = NULL, skeleton = (function (x, value) 
         stop("invalid call in method dispatch to 'row.names<-' (no default method)", 
             domain = NA))(x, value)), <environment>)
  8: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  ── 3. Error: (unknown) (@test-validateMap.R#16)  ───────────────────────────────
  unable to find an inherited method for function 'row.names<-' for signature '"data.frame", "NULL"'
  1: superClass(lsat, trainData = poly, nSample = 100, responseCol = "class", model = "mlc", 
         trainPartition = 0.7, predict = TRUE) at testthat/test-validateMap.R:16
  2: data.frame(x = over(clip, valData)[[responseCol]])
  3: over(clip, valData)
  4: over(clip, valData)
  5: .local(x, y, returnList, fn, ...)
  6: `row.names<-`(`*tmp*`, value = NULL)
  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("data.frame", "NULL"), new("standardGeneric", .Data = function (x, value) 
     standardGeneric("row.names<-"), generic = structure("row.names<-", package = "rgeos"), 
         package = "rgeos", group = list(), valueClass = character(0), signature = c("x", 
         "value"), default = NULL, skeleton = (function (x, value) 
         stop("invalid call in method dispatch to 'row.names<-' (no default method)", 
             domain = NA))(x, value)), <environment>)
  8: stop(gettextf("unable to find an inherited method for function %s for signature %s", 
         sQuote(fdef@generic), sQuote(cnames)), domain = NA)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 530 SKIPPED: 0 FAILED: 3
  1. Error: maximum likelihood model 
  2. Error: (unknown) (@test-superClass.R#66) 
  3. Error: (unknown) (@test-validateMap.R#16) 
  
  Error: testthat unit tests failed
  Execution halted