R: Как можно использовать функцию wait_success для модульных тестов?

Question

У меня есть выражение, которое я хочу проверить с помощью пакета testthat. В документации для expect_success указано использование функции:

expect_success(expr)

, где expr - это выражение , которое оценивается как одно ожидание .

Например, с этим кодом

test_that("Expectation succeeds", {
  x <- 1:10
  expect_success(mean(x)) 
})

я получаю ошибку

Error: Test failed: 'Expectation succeeds'
* no expectation used.

Куда я иду не так?

Answer 1

На самом деле, пока я писал вопрос, я продолжал экспериментировать с кодом и обнаружил, что сначала не полностью понял документацию. Эта функция используется для проверки других ожиданий. Так, для примера, используемого в вопросе, это работает как ожидалось

test_that("Expectation succeeds", {
  x <- 1:10
  expect_success(expect_type(mean(x), 'double')) 
})