闪亮的反应性多重图

Question

我是这个论坛的新手所以请原谅我的错误;我正在尝试编写一个闪亮的蛋白质组学界面。为此，我被困在制作多个情节的另一个方面，另一个是让它们变得反应;此外，当我尝试加载多个文件时，它在一个选项卡中工作，在下一个选项卡中它只显示一个，当我重新上载另一个文件时，即使原始选项卡得到更新，但第二个没有它保留在第一个图中。这是代码的一部分：

library(shiny)

shinyServer(function(input, output, session) {

library(MALDIquantForeign)
library(MALDIquant)

##ENTREE

    infile_p<-reactive({

            f<-input$p_file
            fd<-f$datapath

           for(i in 1:length(f))
            {
               file.rename(fd[i],f$name[i])
            }

        paste(f$name)

      })

##VARIABLE INTERMEDIAIRE

       p<-reactiveValues(data = NULL)


                      ##PRE-PROCESS
                      observeEvent(input$Process ,{

                        l<-import(infile_p(), type="auto")


                         for (i in 1:length(l)) {


                            local({
                              my_i <- i
                              plotname <- paste("bPlot", my_i, sep="")

                              output[[plotname]] <- renderPlot({
                              plot(l[[my_i]], width="700", height="450")

                               })                    


                          })
                          }


                         p$data<-list("before"=l)

                      })


                    ##SORTIE






                         output$bPre <- renderUI({


                            l<-p$data$before

                            plot_output_list <- lapply(1:length(l),   function(i) {
                            plotname <- paste("bPlot", i, sep="")
                            plotOutput(plotname)
                            })

                            do.call(tagList, plot_output_list)
                         })

                          output$vStabl<- renderUI({

                            l<-p$data$before

                            vplot_output_list <- lapply(1:length(l), function(i) {
                              vplotname <- paste("vPlot", i, sep="")

                              plotOutput(vplotname)
                            })

                            do.call(tagList, vplot_output_list)
                          })


                        })


                         observe({
                           if(is.null(p$data$before)) return()

                           invalidateLater(5000, session)
                           ll<-reactiveValues(
                                data=transformIntensity(p$data$before,method="sqrt")

                          )

                           for (i in 1:length(v)) {
                            local({
                             my_i <- i
                              vplotname <- paste("vPlot", my_i, sep="")


                              output[[vplotname]] <- renderPlot({
                              plot(ll$data[[my_i]], width="700", height="450")
                              dev.off()

                              })


                                })
                          }
                        })


 })

ui包含两个uioutputs;请帮助我，我真的想学习这个。