如何让Shiny应用在重复使用同一输出时自动触发警告？

问题背景 #

在Shiny的UI里重复使用同一个output ID会导致应用异常，这是个经典的旧问题。比如下面的示例代码，当mainPanel中两次调用plotOutput("distPlot")时，直方图完全无法正常显示：

library(shiny)
## app.R ##
server <- function(input, output) {
  output$distPlot <- renderPlot({
    hist(rnorm(input$obs), col = 'darkgray', border = 'white')
  })
}
ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      sliderInput("obs", "Number of observations:", min = 10, max = 500, value = 100)
    ),
    mainPanel(plotOutput("distPlot")
              # 若注释掉下一行，直方图可正常显示
              ,plotOutput("distPlot")
    )
  )
)
shinyApp(ui = ui, server = server)

失效原因 #

Shiny不支持在UI中使用同名的多个输出组件，因为这会生成含重复ID的无效HTML。运行时控制台可能显示应用已正常启动，但对应的输出内容（比如上面的直方图）根本不会渲染出来。

自动检测并输出警告的解决方案 #

在复杂UI结构里很容易不小心重复使用Output ID，好在Shiny 1.8.1及以上版本已经解决了这个问题：只需开启Shiny的开发模式，控制台就会自动检测到重复的Output ID并输出警告信息（例如：Warning message: Output 'distPlot' is used twice in UI - this is not supported and might lead to unexpected results）。

开启开发模式的方法很简单，在运行应用前执行以下代码：

shiny::devmode(TRUE)

这样就能在开发阶段及时发现这类问题，避免后续踩坑~

内容的提问来源于stack exchange，提问作者Waldi