В версии 0.12.2 я использую shiny::exprToFuncion()
для переопределения функции reactive()
.
reactive <- function(x) {
func <- shiny::exprToFunction(x)
shiny::reactive({
withProgress(message = 'Загрузка данных', value = 1, detail = '', {
func();
})
})
}
Это позволяет избежать добавления withProgress()
к каждому вызову reactive()
. Но, начиная с версии 0.13.1 , этот метод не работает.
Возможно ли в версии 1.4.0 сделать что-то подобное, чтобы не добавлять withProgress()
к каждому reactive()
отдельно?
Заменить func <- shiny::exptToFunction(x)
на x <- rlang::enexpr(x)
не сработало.
Спасибо.