Running ‘testthat.R’ [50s/69s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > # This file is part of the standard setup for testthat.
  > # It is recommended that you do not modify it.
  > #
  > # Where should you do additional test configuration?
  > # Learn more about the roles of various files in:
  > # * https://r-pkgs.org/tests.html
  > # * https://testthat.r-lib.org/reference/test_package.html#special-files
  > 
  > library(testthat)
  > library(rqti)
  > 
  > test_check("rqti")
  [ FAIL 15 | WARN 3 | SKIP 1 | PASS 218 ]
  
  ══ Skipped tests (1) ═══════════════════════════════════════════════════════════
  • On CRAN (1): 'test-api_opal.R:1:1'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-assessment_section.R:261:5'): Testing of type of calculators in yaml section of Rmd file ──
  Error in `rep(wrong_scores, number_wrong_options)`: invalid 'times' argument
  Backtrace:
      ▆
   1. ├─base::suppressMessages(...) at test-assessment_section.R:261:5
   2. │ └─base::withCallingHandlers(...)
   3. └─base::Map(create_question_object, rep(path3, 2))
   4.   └─base::mapply(FUN = f, ..., SIMPLIFY = FALSE)
   5.     └─rqti (local) `<fn>`(dots[[1L]][[1L]])
   6.       ├─base::do.call(new, slots)
   7.       └─methods (local) `<fn>`(...)
   8.         ├─methods::initialize(value, ...)
   9.         └─rqti (local) initialize(value, ...)
  ── Failure ('test-object_builder.R:305:5'): Testing create_question_object() for OnInColTable task, where as_table=T ──
  `sut` (`actual`) not equal to `expected` (`expected`).
  
  `actual@cols`:                            
  `expected@cols`: "6" "36" "27" "72/2" "25"
  
  `actual@cols_identifiers`:   "col_1" "col_0"                        
  `expected@cols_identifiers`: "col_1" "col_2" "col_3" "col_4" "col_5"
  
      actual@answers_identifiers | expected@answers_identifiers    
  [1] "row_1 col_1"              | "row_1 col_1"                [1]
  [2] "row_3 col_0"              - "row_3 col_2"                [2]
  [3] "row_3 NA"                 - "row_3 col_4"                [3]
  [4] "row_4 NA"                 - "row_4 col_3"                [4]
  [5] "row_5 NA"                 - "row_5 col_5"                [5]
  ── Failure ('test-object_builder.R:324:5'): Testing create_question_object() with conditions: OnInColTable and as_table=F ──
  `sut` (`actual`) not equal to `expected` (`expected`).
  
  `actual@cols`:                          
  `expected@cols`: "Animal" "Plant" "Bird"
  
  `actual@cols_identifiers`:   "col_1" "col_0"        
  `expected@cols_identifiers`: "col_1" "col_2" "col_3"
  
  `actual@answers_identifiers`:   "row_1 NA"    "row_2 col_1" "row_3 col_0"
  `expected@answers_identifiers`: "row_1 col_3" "row_2 col_1" "row_3 col_2"
  ── Failure ('test-object_builder.R:347:5'): Testing create_question_object() for OneInRowTable task ──
  `sut1` (`actual`) not equal to `expected` (`expected`).
  
  `actual@cols`:                     
  `expected@cols`: "27" "36" "25" "6"
  
  `actual@cols_identifiers`:   "col_1" "col_0"                
  `expected@cols_identifiers`: "col_1" "col_2" "col_3" "col_4"
  
      actual@answers_identifiers | expected@answers_identifiers    
  [1] "row_1 col_0"              - "row_1 col_2"                [1]
  [2] "row_2 col_1"              | "row_2 col_1"                [2]
  [3] "row_3 NA"                 - "row_3 col_3"                [3]
  [4] "row_4 NA"                 - "row_4 col_4"                [4]
  [5] "row_5 col_0"              - "row_5 col_2"                [5]
  ── Failure ('test-object_builder.R:348:5'): Testing create_question_object() for OneInRowTable task ──
  `sut2` (`actual`) not equal to `expected` (`expected`).
  
  `actual@cols`:                     
  `expected@cols`: "27" "36" "25" "6"
  
  `actual@cols_identifiers`:   "col_1" "col_0"                
  `expected@cols_identifiers`: "col_1" "col_2" "col_3" "col_4"
  
      actual@answers_identifiers | expected@answers_identifiers    
  [1] "row_1 col_0"              - "row_1 col_2"                [1]
  [2] "row_2 col_1"              | "row_2 col_1"                [2]
  [3] "row_3 NA"                 - "row_3 col_3"                [3]
  [4] "row_4 NA"                 - "row_4 col_4"                [4]
  [5] "row_5 col_0"              - "row_5 col_2"                [5]
  ── Error ('test-object_builder.R:353:5'): Testing create_question_object() for  MultipleChoiceTable task ──
  Error in `rep(wrong_scores, number_wrong_options)`: invalid 'times' argument
  Backtrace:
      ▆
   1. └─rqti:::create_question_object(path) at test-object_builder.R:353:5
   2.   ├─base::do.call(new, slots)
   3.   └─methods (local) `<fn>`(...)
   4.     ├─methods::initialize(value, ...)
   5.     └─rqti (local) initialize(value, ...)
  ── Error ('test-object_builder.R:580:5'): Testing read_table() function: delete the name of cols and rows
            for MultipleChoiceTable ──
  Error in `table(ids)`: nothing to tabulate
  Backtrace:
      ▆
   1. └─rqti:::create_question_object(path) at test-object_builder.R:580:5
   2.   └─rqti:::create_matchtable_slots(html_qstn, attrs)
   3.     └─rqti:::read_table(html, attrs)
   4.       └─rqti:::define_ids(cols, attrs$abbr, "col")
   5.         └─rqti:::make_abbr_ids(vect)
   6.           └─base::table(ids)
  ── Error ('test-object_builder.R:598:5'): Testing read_table() function: delete the name of cols and rows
            for OneInRowTable ──
  Error in `if (points > 0) {
      answer_pair <- paste(tbl$rows_ids[i], tbl$cols_ids[j])
      answers_ids <- c(answers_ids, answer_pair)
      answers_scores <- c(answers_scores, points)
  }`: missing value where TRUE/FALSE needed
  Backtrace:
      ▆
   1. └─rqti:::create_question_object(path) at test-object_builder.R:598:5
   2.   └─rqti:::create_matchtable_slots(html_qstn, attrs)
  ── Error ('test-object_builder.R:616:5'): Testing read_table() function: delete the name of cols and rows
            for OneInColTable ──
  Error in `if (points > 0) {
      answer_pair <- paste(tbl$rows_ids[i], tbl$cols_ids[j])
      answers_ids <- c(answers_ids, answer_pair)
      answers_scores <- c(answers_scores, points)
  }`: missing value where TRUE/FALSE needed
  Backtrace:
      ▆
   1. └─rqti:::create_question_object(path) at test-object_builder.R:616:5
   2.   └─rqti:::create_matchtable_slots(html_qstn, attrs)
  ── Error ('test-rmd2qti.R:29:5'): test abbreviate for rmd2xml() in OneInRowTable class ──
  Error in `table(ids)`: nothing to tabulate
  Backtrace:
      ▆
   1. ├─base::suppressMessages(rmd2xml(file_sut, "to_delete/index.xml")) at test-rmd2qti.R:29:5
   2. │ └─base::withCallingHandlers(...)
   3. └─rqti::rmd2xml(file_sut, "to_delete/index.xml")
   4.   └─rqti:::create_question_object(file)
   5.     └─rqti:::create_matchtable_slots(html_qstn, attrs)
   6.       └─rqti:::read_table(html, attrs)
   7.         └─rqti:::define_ids(cols, attrs$abbr, "col")
   8.           └─rqti:::make_abbr_ids(vect)
   9.             └─base::table(ids)
  ── Error ('test-rmd2qti.R:38:5'): test abbreviate for rmd2xml() in OneInColTable class ──
  Error in `table(ids)`: nothing to tabulate
  Backtrace:
      ▆
   1. ├─base::suppressMessages(rmd2xml(file_sut, "to_delete/index.xml")) at test-rmd2qti.R:38:5
   2. │ └─base::withCallingHandlers(...)
   3. └─rqti::rmd2xml(file_sut, "to_delete/index.xml")
   4.   └─rqti:::create_question_object(file)
   5.     └─rqti:::create_matchtable_slots(html_qstn, attrs)
   6.       └─rqti:::read_table(html, attrs)
   7.         └─rqti:::define_ids(cols, attrs$abbr, "col")
   8.           └─rqti:::make_abbr_ids(vect)
   9.             └─base::table(ids)
  ── Error ('test-rmd2qti.R:47:5'): test abbreviate for rmd2xml() in MultipleChoiceTable class ──
  Error in `table(ids)`: nothing to tabulate
  Backtrace:
      ▆
   1. ├─base::suppressMessages(rmd2xml(file_sut, "to_delete/index.xml")) at test-rmd2qti.R:47:5
   2. │ └─base::withCallingHandlers(...)
   3. └─rqti::rmd2xml(file_sut, "to_delete/index.xml")
   4.   └─rqti:::create_question_object(file)
   5.     └─rqti:::create_matchtable_slots(html_qstn, attrs)
   6.       └─rqti:::read_table(html, attrs)
   7.         └─rqti:::define_ids(cols, attrs$abbr, "col")
   8.           └─rqti:::make_abbr_ids(vect)
   9.             └─base::table(ids)
  ── Error ('test-rmd_matchtable.R:32:5'): test inherit OneInColTable class from Rmd file
            with out parameter - as table:F ──
  Error in `if (points > 0) {
      answer_pair <- paste(tbl$rows_ids[i], tbl$cols_ids[j])
      answers_ids <- c(answers_ids, answer_pair)
      answers_scores <- c(answers_scores, points)
  }`: missing value where TRUE/FALSE needed
  Backtrace:
      ▆
   1. └─rqti:::create_question_object(file_sut) at test-rmd_matchtable.R:32:5
   2.   └─rqti:::create_matchtable_slots(html_qstn, attrs)
  ── Error ('test-rmd_matchtable.R:39:5'): test inherit MultipleChoiceTable class from Rmd file
            with out parameter - as table:F ──
  Error in `table(ids)`: nothing to tabulate
  Backtrace:
      ▆
   1. └─rqti:::create_question_object(file_sut) at test-rmd_matchtable.R:39:5
   2.   └─rqti:::create_matchtable_slots(html_qstn, attrs)
   3.     └─rqti:::read_table(html, attrs)
   4.       └─rqti:::define_ids(cols, attrs$abbr, "col")
   5.         └─rqti:::make_abbr_ids(vect)
   6.           └─base::table(ids)
  ── Error ('test-rmd_matchtable.R:46:5'): test inherit MultipleChoiceTable class from Rmd file
            with out parameter - as table:F ──
  Error in `rep(wrong_scores, number_wrong_options)`: invalid 'times' argument
  Backtrace:
      ▆
   1. └─rqti:::create_question_object(file_sut) at test-rmd_matchtable.R:46:5
   2.   ├─base::do.call(new, slots)
   3.   └─methods (local) `<fn>`(...)
   4.     ├─methods::initialize(value, ...)
   5.     └─rqti (local) initialize(value, ...)
  
  [ FAIL 15 | WARN 3 | SKIP 1 | PASS 218 ]
  Error: Test failures
  Execution halted