如何避免 Shiny for R 中的 render() 函数中的代码重复

Question

我是 Shiny 的新手，如果这是微不足道的，请原谅......

我有一个 server() 函数可以输出多个图。这些图使用相同的代码块，并且每个都添加了一些自己的代码，如下所示：

shinyServer( function( input, output ){
output$plot1 <- renderPlot({
  the block of the same code
  some code specific to plot1
})
output$plot1 <- renderPlot({
  The block of the same code
  some code specific to plot2
})

我想避免重复“相同代码的块”。这必须在 renderPlot 函数中，因为它从 UI 函数中获取可变数据。

Answer 1

您需要将块放入“反应式”中 - 就像一个函数，但它会对更改做出反应。

shinyServer( function( input, output ){
  basicplot = reactive({
                 the block of the same code
              })
output$plot1 <- renderPlot({
  plot1 = basicplot()
  some code specific to plot1
})
output$plot2 <- renderPlot({
  plot2 = basicplot()
  some code specific to plot2
})

“basicplot”响应式基本上是一个函数，它输出 plot1 和 plot2 特定部分需要处理的任何内容。