Running 'colMediansTest.R' [0s/1s]
  Comparing 'colMediansTest.Rout' to 'colMediansTest.Rout.save' ... OK
  Running 'ddnormTest.R' [0s/1s]
  Comparing 'ddnormTest.Rout' to 'ddnormTest.Rout.save' ... OK
  Running 'insertColRow.R' [1s/1s]
  Running 'lmMethods.R' [0s/1s]
  Comparing 'lmMethods.Rout' to 'lmMethods.Rout.save' ... OK
  Running 'margEffTest.R' [0s/1s]
  Comparing 'margEffTest.Rout' to 'margEffTest.Rout.save' ... OK
  Running 'semidefTest.R' [0s/1s]
  Comparing 'semidefTest.Rout' to 'semidefTest.Rout.save' ... OK
  Running 'stdErTests.R' [0s/1s]
  Comparing 'stdErTests.Rout' to 'stdErTests.Rout.save' ... OK
  Running 'sumKeepAttrTest.R' [0s/0s]
  Comparing 'sumKeepAttrTest.Rout' to 'sumKeepAttrTest.Rout.save' ... OK
  Running 'summarizeDF_tests.R' [0s/1s]
  Comparing 'summarizeDF_tests.Rout' to 'summarizeDF_tests.Rout.save' ... OK
Running the tests in 'tests/insertColRow.R' failed.
Complete output:
  > ## load miscTools package
  > library( "miscTools" )
  > 
  > ## create a matrix
  > m <- matrix( 1:9, 3 )
  > 
  > # insert rows
  > print( insertRow( m, 1, 10:12 ) )
   ----------- FAILURE REPORT -------------- 
   --- failure: the condition has length > 1 ---
   --- srcref --- 
  : 
   --- package (from environment) --- 
  miscTools
   --- call from context --- 
  insertRow(m, 1, 10:12)
   --- call from argument --- 
  if (class(m) != "matrix") {
      stop("argument 'm' must be a matrix")
  }
   --- R stacktrace ---
  where 1: insertRow(m, 1, 10:12)
  where 2: print(insertRow(m, 1, 10:12))
  
   --- value of length: 2 type: logical ---
  [1] FALSE  TRUE
   --- function from context --- 
  function (m, r, v = NA, rName = "") 
  {
      if (class(m) != "matrix") {
          stop("argument 'm' must be a matrix")
      }
      if (r == as.integer(r)) {
          r <- as.integer(r)
      }
      else {
          stop("argument 'r' must be an integer")
      }
      if (length(r) != 1) {
          stop("argument 'r' must be a scalar")
      }
      if (r < 1) {
          stop("argument 'r' must be positive")
      }
      if (r > nrow(m) + 1) {
          stop("argument 'r' must not be larger than the number of rows", 
              " of matrix 'm' plus one")
      }
      if (!is.character(rName)) {
          stop("argument 'rName' must be a character string")
      }
      if (length(rName) != 1) {
          stop("argument 'rName' must be a be a single character string")
      }
      nr <- nrow(m)
      nc <- ncol(m)
      rNames <- rownames(m)
      if (is.null(rNames) & rName != "") {
          rNames <- rep("", nr)
      }
      if (r == 1) {
          m2 <- rbind(matrix(v, ncol = nc), m)
          if (!is.null(rNames)) {
              rownames(m2) <- c(rName, rNames)
          }
      }
      else if (r == nr + 1) {
          m2 <- rbind(m, matrix(v, ncol = nc))
          if (!is.null(rNames)) {
              rownames(m2) <- c(rNames, rName)
          }
      }
      else {
          m2 <- rbind(m[1:(r - 1), , drop = FALSE], matrix(v, ncol = nc), 
              m[r:nr, , drop = FALSE])
          if (!is.null(rNames)) {
              rownames(m2) <- c(rNames[1:(r - 1)], rName, rNames[r:nr])
          }
      }
      return(m2)
  }
  <bytecode: 0x2f69050>
  <environment: namespace:miscTools>
   --- function search by body ---
  Function insertRow in namespace miscTools has this body.
   ----------- END OF FAILURE REPORT -------------- 
  Fatal error: the condition has length > 1