Last updated on 2024-07-12 15:53:25 CEST.
| Package | ERROR | OK |
|---|---|---|
| rqti | 6 | 7 |
Current CRAN status: ERROR: 6, OK: 7
Version: 0.2.1
Check: tests
Result: ERROR
Running ‘testthat.R’ [42s/57s]
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
Flavor: r-devel-linux-x86_64-debian-clang
Version: 0.2.1
Check: tests
Result: ERROR
Running ‘testthat.R’ [32s/59s]
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
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 0.2.1
Check: tests
Result: ERROR
Running ‘testthat.R’ [53s/57s]
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
Flavor: r-devel-linux-x86_64-fedora-clang
Version: 0.2.1
Check: tests
Result: ERROR
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
Flavor: r-devel-linux-x86_64-fedora-gcc
Version: 0.2.1
Check: tests
Result: ERROR
Running ‘testthat.R’ [42s/56s]
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
Flavor: r-patched-linux-x86_64
Version: 0.2.1
Check: tests
Result: ERROR
Running ‘testthat.R’ [41s/52s]
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
Flavor: r-release-linux-x86_64