Running ‘testthat.R’
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(MPGE)
  > 
  > test_check("MPGE")
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure (test-mv_G_GE.R:23:5): Throws error if env is not a matrix or dataframe or vector ──
  `mv_G_GE(...)` threw an error with unexpected message.
  Expected match: "env should be a vector or a matrix or a data.frame."
  Actual message: "There are different number of individuals in pheno and geno."
  Backtrace:
      █
   1. ├─testthat::expect_error(...) test-mv_G_GE.R:23:4
   2. │ └─testthat:::quasi_capture(...)
   3. │   ├─testthat:::.capture(...)
   4. │   │ └─base::withCallingHandlers(...)
   5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   6. └─MPGE::mv_G_GE(...)
  ── Failure (test-mv_G_GE.R:24:5): Throws error if env is not a matrix or dataframe or vector ──
  `mv_G_GE(phenotype_data, genotype_data, as.list(environment_data))` threw an error with unexpected message.
  Expected match: "env should be a vector or a matrix or a data.frame."
  Actual message: "There are different number of individuals in pheno and geno."
  Backtrace:
      █
   1. ├─testthat::expect_error(...) test-mv_G_GE.R:24:4
   2. │ └─testthat:::quasi_capture(...)
   3. │   ├─testthat:::.capture(...)
   4. │   │ └─base::withCallingHandlers(...)
   5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   6. └─MPGE::mv_G_GE(phenotype_data, genotype_data, as.list(environment_data))
  ── Failure (test-mv_G_GE.R:28:5): Throw error if more than one enviorenmental variable or number of individuals in env is different from geno or pheno. ──
  `mv_G_GE(...)` threw an error with unexpected message.
  Expected match: "There cannot be more than one enviorenmental variable."
  Actual message: "There are different number of individuals in pheno and geno."
  Backtrace:
      █
   1. ├─testthat::expect_error(...) test-mv_G_GE.R:28:4
   2. │ └─testthat:::quasi_capture(...)
   3. │   ├─testthat:::.capture(...)
   4. │   │ └─base::withCallingHandlers(...)
   5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   6. └─MPGE::mv_G_GE(...)
  ── Failure (test-mv_G_GE.R:29:5): Throw error if more than one enviorenmental variable or number of individuals in env is different from geno or pheno. ──
  `mv_G_GE(...)` threw an error with unexpected message.
  Expected match: "There cannot be more than one enviorenmental variable."
  Actual message: "There are different number of individuals in pheno and geno."
  Backtrace:
      █
   1. ├─testthat::expect_error(...) test-mv_G_GE.R:29:4
   2. │ └─testthat:::quasi_capture(...)
   3. │   ├─testthat:::.capture(...)
   4. │   │ └─base::withCallingHandlers(...)
   5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   6. └─MPGE::mv_G_GE(...)
  ── Failure (test-mv_G_GE.R:30:5): Throw error if more than one enviorenmental variable or number of individuals in env is different from geno or pheno. ──
  `mv_G_GE(...)` threw an error with unexpected message.
  Expected match: "There are different number of individuals in pheno and env."
  Actual message: "There are different number of individuals in pheno and geno."
  Backtrace:
      █
   1. ├─testthat::expect_error(...) test-mv_G_GE.R:30:4
   2. │ └─testthat:::quasi_capture(...)
   3. │   ├─testthat:::.capture(...)
   4. │   │ └─base::withCallingHandlers(...)
   5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   6. └─MPGE::mv_G_GE(...)
  ── Failure (test-mv_G_GE.R:31:5): Throw error if more than one enviorenmental variable or number of individuals in env is different from geno or pheno. ──
  `mv_G_GE(...)` threw an error with unexpected message.
  Expected match: "There are different number of individuals in pheno and env."
  Actual message: "There are different number of individuals in pheno and geno."
  Backtrace:
      █
   1. ├─testthat::expect_error(...) test-mv_G_GE.R:31:4
   2. │ └─testthat:::quasi_capture(...)
   3. │   ├─testthat:::.capture(...)
   4. │   │ └─base::withCallingHandlers(...)
   5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   6. └─MPGE::mv_G_GE(...)
  ── Error (test-mv_G_GE.R:41:5): Check output when geno is data.frame ───────────
  Error: There are different number of individuals in pheno and geno.
  Backtrace:
      █
   1. ├─testthat::expect_equal(...) test-mv_G_GE.R:41:4
   2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. └─MPGE::mv_G_GE(phenotype_data, genotype_data, environment_data)
  
  [ FAIL 7 | WARN 0 | SKIP 0 | PASS 60 ]
  Error: Test failures
  Execution halted