1

我是 Shiny 的新手，如果这个问题被误导，请原谅我。

假设我有 2 个单独的输入input$n_1并且input$n_2调用几乎相同的代码。

library(shiny)

ui <- fluidPage(
  fluidRow(
    numericInput("n_1", label = "n1", value = 5000),
    numericInput("n_2", label = "n2", value = 5000),
    textOutput("result1"),
    textOutput("result2")
  )
)

server <- function(input,output,session)({

  generate_result1 <- reactive({
    # A whole lot of code to generate a result using input$n_1
    x = input$n_1 * 5
  })

  generate_result2 <- reactive({
    # A whole lot of identical code to generate a result using but using input$n_2.  
    # This example only shows one line of code but the real code has dozens of  
    # lines of code where the only difference from generate_result1 is that it uses 
    # input$n_2 instead of input$n_1.
    x = input$n_2 * 5
  })

  output$result1 <- renderText(generate_result1())
  output$result2 <- renderText(generate_result2())

})

shinyApp(ui = ui, server = server)

有没有办法避免当前在上面的示例中发现的代码generate_result1重复generate_result2？

4

1 回答 1

1

据我了解，获取generate_result1和 的过程generate_result2非常相似。唯一的区别是它们接收不同的输入。

在这种情况下，您应该编写一个函数并将输入传递给它

generate_result<- function(input){
  # bla bla bla
   reactive( final_result)  
}

然后根据不同的输入调用它，如下所示：

server <- function(input,output,session)({


  output$result1 <- renderText({generate_result(input$n_1)})
  output$result2 <- renderText({generate_result(input$n_2)})

})
于 2018-09-11T09:46:51.040 回答