Поканата за реактивно изразяване не се връща - R Shiny - r, лъскава

Изглежда, че призивът към d () не връща нищо и продължава вечно, когато приложението стартира и изпълни кода в renderText. Защо така?

library(shiny)
ui <- fluidPage(
actionButton("but","Click"),
textOutput("ui_out")
)

server <- function(input,output) {
d <- eventReactive(input$but, {
100
})
output$ui_out <- renderText({
print("in")
d()
print("out")
})
}

shinyApp(ui=ui,server=server)

Отговори:

Отговорът е тук и по-конкретно тук, Не става въпрос за трайност завинаги. Беше мълчалива грешка. Решението използва ignoreNULL = FALSE.