使用lapply和insertUI对重复的闪亮模块进行排序

install.packages("shiny")

library(shiny)

ui <- fluidPage(
  titlePanel("排序闪亮模块"),
  sidebarLayout(
    sidebarPanel(
      actionButton("addModule", "添加闪亮模块"),
      actionButton("sortModules", "排序闪亮模块")
    ),
    mainPanel(
      uiOutput("modules")
    )
  )
)

server <- function(input, output, session) {
  shinyModules <- reactiveValues(modules = list())

  observeEvent(input$addModule, {
    module <- shiny::shinyModule(
      ui = function(id) {
        ns <- NS(id)
        tagList(
          textInput(ns("input"), "输入文本", ""),
          actionButton(ns("remove"), "移除闪亮模块")
        )
      },
      server = function(input, output, session) {
        observeEvent(input$remove, {
          shinyModules$modules <- shinyModules$modules[-id]
        })
      }
    )
    shinyModules$modules <- c(shinyModules$modules, list(module))
  })

  observeEvent(input$sortModules, {
    shinyModules$modules <- lapply(shinyModules$modules, function(module) {
      module$server <- module$server[-1]
      module
    })
  })

  output$modules <- renderUI({
    lapply(seq_along(shinyModules$modules), function(i) {
      module <- shinyModules$modules[[i]]
      module$ui(paste0("module", i))
    })
  })
}

shinyApp(ui, server)