В моем блестящем веб-приложении я поместил условную панель в различные tabPanel , например:
На стороне пользовательского интерфейса:
tabPanel("Loading & parsing samples",
actionButton("runLoad"),
conditionalPanel(
condition = ("output.load_panelStatus"),
h3("Push to get some summaries of the samples loaded"),
...)
)
На стороне сервера
observeEvent(eventExpr = input$runLoad, {
...
output$load_panelStatus <- reactive({input$load_panelStatus=="show"})
outputOptions(output, "load_panelStatus", suspendWhenHidden = FALSE)
print("Parsing process ends")
output$console_output_pre <- renderPrint("parsing process ends")
})
Как ни странно, это прекрасно работало до двух дней go, но сейчас (даже когда я тестировал его на моих старых исходных версиях) Мне нужно дважды нажать кнопку runLoad , чтобы пользовательский интерфейс отображал оставшиеся выходные данные (оператор h3 ("") и все остальные выходные данные ...) , В то же время я выполнил только какое-то обновление пакета, но ничего, что могло бы повлиять на блестящее приложение ... (по крайней мере, я думаю)
Я странствую, если кто-то еще недавно встречался с этим типом проблемы