Функции covr и build-time

У меня есть пакет с кучей функций, которые оцениваются при сборке пакета, но не используются в моем наборе тестов. Например, у меня есть несколько случаев, которые выглядят так:

warning_flags <- function() {
    list(
        warn_on_unknown_function = TRUE,
        warn_on_local_function = TRUE
    )
}

make_set_warning <- function(warning_name, val) {
    force(warning_name)
    function(flags) {
        flags[[warning_name]] <- val
        flags
    }
}

set_warn_on_unknown_function <-
    make_set_warning("warn_on_unknown_function", TRUE)
unset_warn_on_unknown_function <-
    make_set_warning("warn_on_unknown_function", FALSE)

set_warn_on_local_function <-
    make_set_warning("warn_on_local_function", TRUE)
unset_warn_on_local_function <-
    make_set_warning("warn_on_local_function", FALSE)

make_set_warning функция запускается при сборке пакета, чтобы создать set_ а также unset_ функции, но анализ покрытия теста с covr не фиксирует это и считает, что функция не проверена.

Есть ли способ включить встроенные функции пакета в отчет о покрытии или мне нужно явно тестировать такие функции в моем наборе тестов?

0 ответов

Другие вопросы по тегам