在Shiny中保存选择值

Question

我正在尝试构建一个闪亮的应用程序，用于使用蒙特卡罗模拟预测公司的收入。此收入定义为Sel * Act * Siz * Rat。我将让用户输入这4个变量的最小值和最大值，从而计算出AFYP（收入）。

这是代码 -

Server.R

foreach ($query as $row) {
display id - area - cost
if (currentareavalue != previousareavalue)
display sum of all the previous costs with the same areaname
}

ui.R

    shinyServer(function(input, output) {

      getAFYP_round <- reactive({
set.seed=12345
options(scipen = 999)
Sel<-runif(10000, input$num1[1], input$num1[2])
Act<-runif(10000, input$num3[1], input$num3[2])
Siz<-runif(10000, input$num5[1], input$num5[2])
Rat<-runif(10000, input$num7[1], input$num7[2])

AFYP <- Sel*Act*Siz*Rat
AFYP
      })

    })

现在我面临的任务是，对于InputID，Tier和Designation的每个组合，用户应该能够输入用于计算AFYP的4个变量的最小值和最大值，并且当用户使用时这些值应保持存储回到组合选择。我需要这样做来计算公司的整体AFYP，这将是为所有可能的Tier和Designation组合生成的AFYP的总和。

任何帮助都会非常感激。提前谢谢。