在 Shiny 中使用 for 循环生成和显示动态 UI

Question

我将数据框作为输入，并在其中添加了一些额外的列。然后我使用 for 循环对每一行进行处理。此处理需要时间，因此我想将处理后的行显示为单独的 ui 元素。

例如， 如果正在处理第一行，则

ROW-1

如果正在处理第 2 行，则将其添加到下一个 ROW-1

ROW-1
ROW-2

所以当我的 for 循环在行中进行时，最新处理的行将作为 UI 元素添加到列表中。

我使用了 lapply，但它会处理所有行，然后将所有内容一起显示。

library(shiny)

ui <- fluidPage(
  uiOutput("ui1")
)

server <- function(input, output) {
  
  Init_vals <- 1:5
  for(i in 1:5){
Sys.sleep(5)
    output[[paste("ui",i,sep="")]] = renderUI({
        list(
          fluidPage(
            fluidRow(
              textInput(
                inputId=paste0("id",i) ,
                label = "here",
                value = Init_vals[i]
              )
            )
          ),
          uiOutput(paste("ui",i + 1,sep=""))
        )
        
      })
  }

    
  
}


shinyApp(ui = ui, server = server)

在这里，你可以看到只生成了最后一个ui元素，其他从ui1到ui4的元素都被跳过了！应用应每 5 秒生成新的文本输入。

Answer 1

像 Jim 建议的那样，尝试使用 lapply 而不是 for 循环：

server <- function(input, output) {
    lapply(1:5, function(i) {
        Sys.sleep(5)
        output[[paste0("ui", i)]] <- renderUI({
            list(
              fluidPage(
                fluidRow(
                  textInput(
                    inputId = paste0("id", i),
                    label = "here",
                    value = i
                  )
                )
              ),
              uiOutput(paste0("ui", i + 1))
            )
        })
    })
}

似乎有一些关于闪亮的独特之处，它会阻止输出被正确分配for 循环。你也可以使用purrr::walk()

编辑： 你是对的，shiny 等待显示所有内容，直到 server 函数完成运行。我相信这就是 shiny 的设计方式——动态 UI 元素（使用 renderUI 创建）将不显示，直到它们全部创建完成。

如果您的目标是告知您的用户该过程可能需要多长时间，您可能希望使用 withProgress()：

server <- function(input, output) {
  withProgress(
    message = 'Calculation in progress',
    detail = 'This may take a while...',
    value = 0, 
    expr = {
      lapply(1:5, function(i) {
        Sys.sleep(5)
        output[[paste0("ui", i)]] <- renderUI({
          list(
            fluidPage(
              fluidRow(
                textInput(
                  inputId = paste0("id", i),
                  label = "here",
                  value = i
                )
              )
            ),
            uiOutput(paste0("ui", i + 1))
          )
        })
        incProgress(1 / 5)
      })
  })
}