R 有光泽的反应性多重图

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

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()

                              })


                                })
                          }
                        })


 })

库（闪亮）
shinyServer（功能（输入、输出、会话）{
图书馆（MALDIquantForeign）
图书馆（MALDIquant）
##主菜
请更新您的代码，以便其他人可以重现您的问题。