在闪亮的两个 tabPanel 中绘制相同的输出

Question

我试图在 tabBox 中的两个单独的选项卡面板中以闪亮的方式绘制相同的直方图。我可以在其中一个选项卡中绘制数据，但是当我添加另一个选项卡的代码时，它似乎破坏了应用程序。下面是我正在尝试做的一个例子：

    library(shiny)
     library(dplyr)

data(mtcars)

body <- dashboardBody(
  fluidRow(
    tabBox(
      title = "miles per gallon",

      id = "tabset1", height = "250px",
      tabPanel("Tab1", plotOutput("plot1")),
      tabPanel("Tab2", plotOutput("plot1"), "test") # the app 'breaks' when I add in the **plotOutput("plot1")** here... however it works when I remove it
    )
    )
  )

shinyApp(
  ui = dashboardPage(
    dashboardHeader(title = "Test"),
    dashboardSidebar(),
    body
  ),
  server = function(input, output) {


      output$plot1 <- renderPlot({hist(mtcars$mpg)})

  }
)

在这个特定的示例中，我可以像这样在服务器中添加另一行

 output$plot2 <- renderPlot({hist(mtcars$mpg)})

然后调用plot2，但我的实际应用程序比上面的示例更复杂一些，所以我想在两个选项卡中绘制plot1。

Answer 1

当您创建闪亮的应用程序时，您正在创建一个 HTML 站点，并且输出位于带有 id 的 div 容器中。所以你在不知道的情况下尝试创建两个具有相同 id 的 div 容器。这是行不通的。有关讨论，请参阅此处：多个不同的 HTML 元素如果是不同的元素，是否可以具有相同的 ID？

你可以做的是将服务器代码包装在一个lapply()函数中并生成两个 id：

lapply(1:2, function(nr){
  output[[paste0("plot", nr)]] <- renderPlot({hist(mtcars$mpg)})      
})

然后调用plotOutput("plot1")和plotOutput("plot2")。还有其他可能性仅使用一个输出与 结合使用conditionalPanels()，但我认为这种方式应该更适合您。

Answer 2

BigDataScientist 的答案非常好，而且非常具有可扩展性。

但对于只有一两个想要重复的输出的情况，我认为最简单且最具可读性的解决方案是将它们全部分配给同一个渲染函数。例如，这将是：

output$plot1 <- output$plot2 <- renderPlot({ hist(mtcars$mpg) })

这是使用此解决方案的完整工作应用程序：

output$plot1 <- output$plot2 <- renderPlot({ hist(mtcars$mpg) })