Running 'testthat.R' [5s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(genotypeR)
  
  Attaching package: 'genotypeR'
  
  The following object is masked from 'package:methods':
  
      show
  
  > 
  > test_check("genotypeR")
  -- 1. Error: (unknown) (@test-1_binary_multi_coding.R#7)  ----------------------
  replacement has 1 row, data has 0
  1: initialize_genotypeR_data(seq_data = genotypes_data, genotype_table = genotype_table, 
         warning_allele = "Ref", output = "warnings2NA") at testthat/test-1_binary_multi_coding.R:7
  2: `[<-`(`*tmp*`, marker_data_frame$value == warning_genotype, "value", value = "warning")
  3: `[<-.data.frame`(`*tmp*`, marker_data_frame$value == warning_genotype, "value", value = "warning")
  4: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, n), domain = NA)
  
  -- 2. Error: (unknown) (@test-2_subsetChromosome.R#17)  ------------------------
  replacement has 1 row, data has 0
  1: initialize_genotypeR_data(seq_data = xy, genotype_table = xy_table, warning_allele = "Ref", 
         output = "pass_through") at testthat/test-2_subsetChromosome.R:17
  2: `[<-`(`*tmp*`, seq_data_warnings_coded$GENOTYPE == "warning", "GENOTYPE", value = NA)
  3: `[<-.data.frame`(`*tmp*`, seq_data_warnings_coded$GENOTYPE == "warning", "GENOTYPE", 
         value = NA)
  4: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, n), domain = NA)
  
  -- 3. Error: (unknown) (@test-4_count_CO.R#9)  ---------------------------------
  replacement has 1 row, data has 0
  1: initialize_genotypeR_data(seq_data = genotypes_data, genotype_table = genotype_table, 
         warning_allele = "Ref", output = "warnings2NA") at testthat/test-4_count_CO.R:9
  2: `[<-`(`*tmp*`, marker_data_frame$value == warning_genotype, "value", value = "warning")
  3: `[<-.data.frame`(`*tmp*`, marker_data_frame$value == warning_genotype, "value", value = "warning")
  4: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, n), domain = NA)
  
  -- 4. Error: (unknown) (@test-6_initialize_genotypeR_data.R#7)  ----------------
  replacement has 1 row, data has 0
  1: initialize_genotypeR_data(seq_data = genotypes_data, genotype_table = genotype_table, 
         warning_allele = "Ref", output = "pass_through") at testthat/test-6_initialize_genotypeR_data.R:7
  2: `[<-`(`*tmp*`, seq_data_warnings_coded$GENOTYPE == "warning", "GENOTYPE", value = NA)
  3: `[<-.data.frame`(`*tmp*`, seq_data_warnings_coded$GENOTYPE == "warning", "GENOTYPE", 
         value = NA)
  4: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, n), domain = NA)
  
  == testthat results  ===========================================================
  OK: 6 SKIPPED: 0 FAILED: 4
  1. Error: (unknown) (@test-1_binary_multi_coding.R#7) 
  2. Error: (unknown) (@test-2_subsetChromosome.R#17) 
  3. Error: (unknown) (@test-4_count_CO.R#9) 
  4. Error: (unknown) (@test-6_initialize_genotypeR_data.R#7) 
  
  Error: testthat unit tests failed
  Execution halted