动态添加带有闪亮标题的绘图

Question

我想使用闪亮的动态生成图，但每个图都有不同的标题。

我曾尝试使用 for bucle 生成 n 个图并使用 observeEvent 显示它们，但这对我不起作用，因为图的主要内容被忽略了。

为了确保每个情节都有自己的主标题，我所做的是将标题存储到 data.frame 并从情节中访问它。

代码如下：

    library(shiny)

ui <- fluidPage(

    textInput("title","Title",""),
    actionButton("generate","Plot"),
    div(class="aux",style="width:300px;height:200px")

)


server <- function(input,output){

    observeEvent(input$generate,{
                  insertUI(
                      selector= ".aux",
                      where="beforeBegin",
                      ui = plotOutput(paste0("plot",input$generate))

                  )

        if(input$generate == 1){

            data <<- data.frame(title = input$title)
        }else{
            aux <- data.frame(title=input$title)
            data <<- rbind(data,aux)

        }   


    })

    for(i in 1:10){

        output[[paste0("plot",i)]] <- renderPlot(
            plot(rnorm(100),main=data[i,"title"])

        )


    }



}


shinyApp(ui,server)

这个其他代码做了我真正想做的事情，但是手动声明绘图不是很好的编程：

library(shiny)

ui <- fluidPage(

    textInput("title","Title",""),
    actionButton("generate","Plot"),
    div(class="aux",style="width:300px;height:200px")

)


server <- function(input,output){

    observeEvent(input$generate,{
                  insertUI(
                      selector= ".aux",
                      where="beforeBegin",
                      ui = plotOutput(paste0("plot",input$generate))

                  )

        if(input$generate == 1){

            data <<- data.frame(title = input$title)
        }else{
            aux <- data.frame(title=input$title)
            data <<- rbind(data,aux)

        }   


    })



        output$plot1 <- renderPlot(
            plot(rnorm(100),main=data[1,"title"])
        )
        output$plot2 <-    output$plot1 <- renderPlot(
            plot(rnorm(100),main=data[2,"title"])
        )





}


shinyApp(ui,server)

已编辑：

使用 Stephane Laurent 的建议，我将 insertUI 和 output[[plot]] 放在了 observeEvent 中，但这并不能解决能够编辑更改 data.frame 标题的绘图标题的问题。代码如下：

library(shiny)
library(data.table)

ui <- fluidPage(
  column(6,
  textInput("title","Title",""),
  actionButton("generate","Plot"),
  div(id="aux")),
  column(6,
  textInput("newt","New title",""),
  selectInput("row","Row",choices=c(1:10)),
  actionButton("change","Change title"))


)


server <- function(input,output){
  observeEvent(input$change,{
    df$title <<- as.character(df$title)
    df[input$row,"title"]<-input$newt 


  })
  k <- 0
  observeEvent(input$generate, {
    insertUI(
      selector= "#aux",
      where="beforeBegin",
      ui = plotOutput(paste0("plot",input$generate))
    )
    k <- k + input$generate
    if(input$generate==1){
      df <<- data.frame(title = input$title)
      df$title <<- as.character(df$title)

    }else{

      aux <- data.frame(title = input$title)
      df <<- rbind(df,aux)
      df$title <<- as.character(df$title)
    }


    output[[paste0("plot",input$generate)]] <- renderPlot(
      plot(rnorm(100), main = df[k,"title"])      
    )









  })  
}

shinyApp(ui,server)

Answer 1

把renderPlot放在观察者里面：

library(shiny)

ui <- fluidPage(

  textInput("title","Title",""),
  actionButton("generate","Plot"),
  div(id="aux")

)


server <- function(input,output){

  observeEvent(input$generate, {
    insertUI(
      selector= "#aux",
      where="beforeBegin",
      ui = plotOutput(paste0("plot",input$generate))
    )

    output[[paste0("plot",input$generate)]] <- renderPlot(
      plot(rnorm(100), main = isolate(input$title))      
    )
  })  
}

shinyApp(ui,server)

编辑

已编辑问题的解决方案：

library(shiny)

ui <- fluidPage(

  column(6,
         textInput("title","Title",""),
         actionButton("generate","Plot"),
         div(id="aux")),
  column(6,
         textInput("newt","New title",""),
         selectInput("row","Row",choices=c(1:10)),
         actionButton("change","Change title"))  
)    

server <- function(input,output){

  titles <- reactiveValues()

  observeEvent(input$change, {
    titles[[input$row]] <- input$newt
  })

  values <- replicate(10, rnorm(100))

  for(i in 1:10){
    local({
      ii <- i
      output[[paste0("plot",ii)]] <- renderPlot(
        plot(values[,ii], main = titles[[as.character(ii)]])
      )
    })
  }

  observeEvent(input$generate, {
    titles[[as.character(input$generate)]] <- input$title
    insertUI(
      selector = "#aux",
      where = "beforeBegin",
      ui = plotOutput(paste0("plot",input$generate))
    )
  })

}

shinyApp(ui,server)