我正在编写一个闪亮的应用程序，用于可视化我公司的保险福利计划。这是我想要发生的事情：
- 我将有一个
selectInput或sliderInput用户将在其医疗计划中选择人数的地方 - 将出现匹配数量的双面滑块（每个成员一个）
- 然后，他们可以输入他们对计划中每个成员的最佳/最坏情况医疗费用的估计
- 我的代码将采用这些估计并创建并排图来说明三个计划产品的预测成本，以便他们可以根据他们的估计决定哪一个是最便宜的
这是我当前的ui.R带有硬编码输入的文件，模拟了一个四口之家：
shinyUI(pageWithSidebar(
headerPanel("Side by side comparison"),
sidebarPanel(
selectInput(inputId = "class", label = "Choose plan type:",
list("Employee only" = "emp", "Employee and spouse" = "emp_spouse",
"Employee and child" = "emp_child", "Employee and family" = "emp_fam")),
sliderInput(inputId = "ind1", label = "Individual 1",
min = 0, max = 20000, value = c(0, 2500), step = 250),
sliderInput(inputId = "ind2", label = "Individual 2",
min = 0, max = 20000, value = c(0, 2500), step = 250),
sliderInput(inputId = "ind3", label = "Individual 3",
min = 0, max = 20000, value = c(0, 2500), step = 250),
sliderInput(inputId = "ind4", label = "Individual 4",
min = 0, max = 20000, value = c(0, 2500), step = 250)
),
mainPanel(
tabsetPanel(
tabPanel("Side by Side", plotOutput(outputId = "main_plot", width = "100%")),
tabPanel("Summary", tableOutput(outputId = "summary"))
)
)))
这是它的样子（透明的末端部分是两个计划的 HSA 贡献的结果。我认为这是显示保费和医疗费用的好方法，同时显示公司 HSA 贡献的影响。因此，你'只是比较纯色的长度）。
我见过这样的例子，其中 UI 输入本身是固定的（在这种情况下，checkboxGroupInput存在一个，但它的内容是根据另一个 UI 输入的选择定制的），但我没有看到定制数字的例子（或，比如说，类型）作为另一个 UI 输入内容的结果生成的输入元素。
对此有什么建议（甚至可能）？
我最后的手段是创建 15 个输入滑块并将它们初始化为零。我的代码可以正常工作，但我想清理界面，不必为家庭很大的偶尔用户创建那么多滑块。
根据 Kevin Ushay 的回答进行更新
我试着走这server.R条路，有这个：
shinyServer(function(input, output) {
output$sliders <- renderUI({
members <- as.integer(input$members) # default 2
max_pred <- as.integer(input$max_pred) # default 5000
lapply(1:members, function(i) {
sliderInput(inputId = paste0("ind", i), label = paste("Individual", i),
min = 0, max = max_pred, value = c(0, 500), step = 100)
})
})
})
紧接着，我尝试从input每个人的费用中提取价值：
expenses <- reactive({
members <- as.numeric(input$members)
mins <- sapply(1:members, function(i) {
as.numeric(input[[paste0("ind", i)]])[1]
})
maxs <- sapply(1:members, function(i) {
as.numeric(input[[paste0("ind", i)]])[2]
})
expenses <- as.data.frame(cbind(mins, maxs))
})
最后，我有两个函数可以创建对象来存储数据框，以便根据低和高医疗费用估计值进行绘图。他们被称为best_case并且worst_case都需要expenses对象才能工作，所以我把它称为我从这个问题中学到的第一行
best_case <- reactive({
expenses <- expenses()
...
)}
我遇到了一些错误，所以我过去常常browser()单步执行expenses并注意到一些奇怪的事情，比如函数中input$ind1似乎不存在expenses。
我还玩弄了其中的各种print()陈述，看看发生了什么。最引人注目的是当我print(names(input))作为函数的第一行时：
[1] "class" "max_pred" "members"
[1] "class" "ind1" "ind2" "max_pred" "members"
我得到两个输出，我相信这是由于它的定义expenses和随后的调用。worst_case奇怪的是......当使用完全相同的expenses <- expense()线时，我没有得到第三个。
print(expenses)如果我在我的函数内部做类似的事情expenses，我也会得到重复：
# the first
mins maxs
1 NA NA
2 NA NA
# the second
mins maxs
1 0 500
2 0 500
关于为什么我的input元素在第二次调用ind1之前ind2不会显示的任何提示expenses，从而阻止正确创建数据框？