R 输入函数中的值

我正在开发一个闪亮的应用程序，需要输入值才能显示在函数中

我试图做的是以某种方式从输入中提取名称和值，比如

CL=4

，

V1=3

，然后将它们输入到一个函数中，稍后我需要将它们输入到服务器中的模型中。我正在研究的模型只采用函数格式。下面是我的代码

用户界面：

#设置
rm（list=ls（））
图书馆（闪亮）
图书馆（shinydashboard）
图书馆（shinyBS）
图书馆（dplyr）
#设计侧栏
侧栏I将服务器部件简化为：

test <- function (V1 = 1, CL = 2, lA = 1, lB = 2) {
    return(lA + lB + V1 + CL)
}

shinyServer(function(input, output, session) {
    mypar <- reactive({
        V1 = as.numeric(input$V1)
        CL = as.numeric(input$CL)
        return(test(V1, CL))
    })
    output$testprint <- renderText(mypar())  
})

testI将服务器部件简化为：

test <- function (V1 = 1, CL = 2, lA = 1, lB = 2) {
    return(lA + lB + V1 + CL)
}

shinyServer(function(input, output, session) {
    mypar <- reactive({
        V1 = as.numeric(input$V1)
        CL = as.numeric(input$CL)
        return(test(V1, CL))
    })
    output$testprint <- renderText(mypar())  
})

测试我的解决方案是否有助于解决您的问题您可以接受答案，这样我们就可以结束问题：）请将您的代码重写为一个简单的示例@Krina如果有助于解决您的问题，您能否接受答案？如果我的解决方案有助于解决您的问题，您可以接受答案，这样我们就可以结束问题：）请将您的代码重写为一个最小的示例@Krina如果答案有助于解决你的问题，你能接受吗？谢谢你的回答。我仍在为此挣扎。调用mypar后，我需要一个如下所示的函数：test谢谢您的响应。我仍在为此挣扎。调用mypar的回报是一个如下所示的函数：test
test <- function (lKa, lKdeg, V1, CL, Q, V2) {
            Ka=exp(lKa)
            Kdeg=exp(lKdeg)
            V1=xx
            V2=xx
            CL=xx
            Q=xx
            }

test <- function (V1 = 1, CL = 2, lA = 1, lB = 2) {
    return(lA + lB + V1 + CL)
}

shinyServer(function(input, output, session) {
    mypar <- reactive({
        V1 = as.numeric(input$V1)
        CL = as.numeric(input$CL)
        return(test(V1, CL))
    })
    output$testprint <- renderText(mypar())  
})