相关疑难解决方法(0)

我正在创建一个闪亮的应用程序，它将根据客户的不同功能为客户生成分数。在我闪亮的应用程序中，我提供了 checkboxGroupInput 来选择所需的功能。根据所选功能，应用程序将动态地将 numericInput 添加到 Web ui，以便用户可以为所选功能分配权重，并且权重将用于分数计算。我尝试了不同的方法来获取选定的特征，并希望将它们保存在向量中。这样我就可以使用向量的元素来计算分数。请有人告诉我一个解决方案，将 checkboxGroupInput 中选定的功能保存在向量中，并根据该向量访问动态创建的 numbericInput 值。

代码片段

# Select variables to determine the credit worthyness
    checkboxGroupInput(

      inputId = "selected_var",

      label = "Choose variables:",

      choices = c(
        "R" = "r",
        "F" = "f",
        "M" = "m"
        ),

      selected = c("r","f"))
  )

server <- function(input, output) {

  output$weights_input <- renderUI({ 

req(input$selected_var)
req(input$weights)


lapply(1:length(input$selected_var), function(i) {
  numericInput(inputId = paste0(input$selected_var[i],"_weight"), label = input$selected_var[i], min = 0, max = 1, value = 0)
})
  })

这里总新手.

我有一个输出写入公式的结果,变量基于输入

output$text_calc <- renderText({
    paste("The result is =", input$num_W * input$num_l - input$slider_a... )
    })

为了避免我的大脑爆炸长公式,我如何将输入定义为单个字母变量？我试过l <- input$num_l哪个给了我

"没有主动反应上下文就不允许操作.(你试图做一些只能在反应式表达式或观察者内部完成的事情.)"

放置reactive({})代码给出了

错误:无法将类型'闭包'强制类型为'character'类型的向量