R Shiny：从renderPlot中删除项目并再次引用它

Question

我在一个闪亮的应用程序的renderPlot选项中有代码，我想将其拉入一个单独的反应上下文。但是，我无法弄清楚如何这样做，仍然能够参考表格。

我想要的是能够将第一部分拉入其自己的反应上下文然后在renderPlot中引用它，但我不知道如何考虑数据来源矩阵以其中一个输入为条件。提前谢谢！

当前代码：

predictor <- reactive({
if (input$predictor == "bin") {matrix(0,ncol=1, nrow=input$n) -> predictor; predictor[1:input$pos] <- 1}
if (input$predictor == "norm") {predictor <- matrix(rnorm(input$n,input$pred_mean, input$pred_sd),ncol=1,nrow=input$n)}
if (input$predictor == "user") {inFile <- input$predictor2; predictor <- as.matrix(read.delim2(inFile$datapath, header=F), ncol=1)}
}) 

output$distPlot <- renderPlot({
data <- sim(input$n,input$coverage[1], input$coverage[2], predictor)
....
})

所需代码（概念性）

{{1}}