Data_null <- reactive({ if (foo) {

Question

Data_null <- reactive({ if (foo) {

return(NULL)
}
return(get_data())
})

data_val <- reactive({
if (foo) {
validate("foo is bar")
}
return(get_data())
})

output$result <- renderText({
df <- data_null()
if (is.null(df)) {
return "my placeholder"
}
return(process(df))
})
Если я заменю data_null на data_val, как изменить output$result чтобы он в случае foo писал "my placeholder", а не "foo is bar"?

Реальная задача - у меня есть шайни апп, который требует подгрузку нескольких файлов. И цепь реактивности длиннее, чем в примере.
Если в процессе подгрузки будут ошибки (например нет одного из файлов), я не хочу, чтобы все элементы приложения превращались в сообщениях об ошибках.
Сейчас это решается ручным пробросом null и обработкой его (data возвращает null -> превращается в пустую df -> выводится пустой график).
Но это не совместимо с "каноничным" использованием req и validate.

#programming #r #russian

0

08.11.2023

2 ответов

12 просмотров

Ilya Shutov

И здесь немного фокусов набрано: https://t.me/r_in_action/370

0

6 месяцев назад

Ilya Shutov · Accepted Answer

Ilya Shutov

Не люблю длинные цепочки реактивностей. По многим причинам. Но надо в конкретику опускаться. Частично писал здесь: https://habr.com/ru/articles/649883/

0

6 месяцев назад

169 похожих чатов

Data_null <- reactive({ if (foo) {

2 ответов

Похожие вопросы