闪亮应用程序中的重复代码

Question

我正在构建一个闪亮的应用程序，我正在输出彼此非常相似的块，并且它变得非常重复。我想知道是否有办法通过循环来提供列表来实现这一目标？

我目前拥有的一些重复代码：

product_selection_list  <- c("All Products", as.vector(unique(d$PRODUCT_NAME)))
capacity_selection_list <- c("All Capacities", as.vector(unique(d$PRODUCT_CAPACITY)))
fg_month_selection_list <- c("All Dates", as.vector(unique(d$DATE)))
lob_selection_list      <- c("All Businesses", as.vector(unique(d$BUSINESS)))

正如您所看到的，上述所有行都做同样的事情 - 这些行正在生成要在下拉列表中使用的列表，但是，如果将来需要更改它，这可能会很烦人。

同样，selectInput代码是相同的情况，我有一个像下面的块，从上面的每个列表：

selectizeInput(inputId =  "product",
label    = "Product:",
choices  = product_selection_list,
selected = "All Products",
multiple = T),

如果有更好的编码方式，我会很感激。 谢谢！