Question

我创建了一个闪亮的应用程序，它运行一个函数（）并生成多个输出以呈现给UI。此外，此函数已被“eventReactive（）”包装，该事件由UI中的“ActionButton”控制。

但是，由于此函数是一个迭代5-10分钟的优化函数，因此人们必须等到搜索功能完成才能看到结果（多功能输出）。

我希望我的用户在功能运行时（实时）看到建模进度（如搜索功能中的print（）s而不是等待）。所以，我想知道是否可以使用“renderPrint”或“renderText”，它可以在搜索功能运行时呈现“打印”？

我闪亮的应用程序的基本结构是：

server.r

# source optimal_fun()
source("optimal_fun.r")

# server.r main
shinyServer(function(input, output) {

# ----------- use 'eventreactive()' for 'action button'
model <- eventReactive(input$goButton, {
         optimal_fun()
         })

# render fun() result1
output$result1 <- renderTable({
    model()$result1
  })

# render fun() result2
output$result1 <- renderTable({
    model()$result2
  })

# render fun() result3
output$result1 <- renderTable({
    model()$result3
  })

# ------- render all outputs to UI
output$tb <- renderUI({
             tabsetPanel(tabPanel("result1", tableOutput("result1")),
                         tabPanel("result2", tableOutput("result2")),
                         tabPanel("result3", tableOutput("result3")))
             })
})

谢谢！任何建议或指导都会非常感激。:)

如何从一个闪亮的函数向UI呈现“print（）”文本？

0 个答案: