Shiny R：迭代selectInput选项的函数

Question

是否可以创建一个由动作按钮启动的功能，该功能将遍历每个选择输入的选择？

例如，假设有3个选择输入，每个输入有4个选项。我的目标是创建一个由动作按钮启动的功能，该按钮选择第一个选择输入的每个选项，然后选择第二个选择输入的每个选择，依此类推。在服务器端之一，每次进行选择输入选择时，反应函数都会计算计算结果。

我相信我已经完成了服务器端，但经过多次搜索后，我无法弄清楚如何创建一个迭代选择选择输入的选项的函数。

下面是闪亮的应用程序，有3个选择输入，每个输入有4个选项（我不认为添加任何服务器逻辑是必要的）。

library(shiny) 

shinyApp(
  ui = fluidPage(
    selectInput('var1', 'Input 1', choices = c("Choice 1"= 1, 
                                               "Choice 2" = 2, 
                                               "Choice 3"  = 3,
                                               "Choice 4" = 4), 
                multiple=T,
                selected= c("Choice 1"= 1, 
                            "Choice 2" = 2, 
                            "Choice 3"  = 3,
                            "Choice 4" = 4)
    ),

    selectInput('var2', 'Input 2', choices = c("Choice 1"= 1, 
                                               "Choice 2" = 2, 
                                               "Choice 3"  = 3,
                                               "Choice 4" = 4), 
                multiple=T,
                selected= c("Choice 1"= 1, 
                            "Choice 2" = 2, 
                            "Choice 3"  = 3,
                            "Choice 4" = 4)
    ),

    selectInput('var3', 'Input 3', choices = c("Choice 1"= 1, 
                                                         "Choice 2" = 2, 
                                                         "Choice 3"  = 3,
                                                         "Choice 4" = 4), 
                multiple=T,
                selected= c("Choice 1"= 1, 
                            "Choice 2" = 2, 
                            "Choice 3"  = 3,
                            "Choice 4" = 4)
    ),
    textOutput("result")
  ),
  server = function(input, output) {
    NULL
  }
)