Ошибка, которую я получаю, требует настройки. Но здесь я попытаюсь объяснить проблему как воспроизводимую.
Создайте тестовый файл в каталоге ./test/testhat
с именем test-for-bugs.r
и в этом файле поместите
test_that("testing", {
library(disk.frame)
setup_disk.frame()
test_df = as.disk.frame(cars, nchunks = 2)
test_result = test_df %>%
group_by(!!!syms(names(test_df))) %>%
summarize(n=n()) %>%
collect
})
Теперь просто нажмите кнопка Run Tests в rstudio
, тогда вы увидите эту ошибку
test-for-fun.r:6: error: testing object 'test_df' not found Backtrace:
1. dplyr::group_by(., !!!syms(names(test_df)))
1. dplyr::summarize(., n = n())
9. dplyr::collect(.)
11. disk.frame::chunk_group_by(., !!!syms(names(test_df)))
28. rlang:::map(x, sym)
29. base::lapply(.x, .f, ...) ```
Однако, если вы последовательно запускаете один и тот же код в REPL
, ошибка не появляется. Также из командной строки Rscript test-for-fun.r
также работает без нареканий.
Чем отличается среда r при выполнении тестов?
Спасибо ...