Question

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

我想要做的是以某种方式从输入中提取名称和值，例如CL=4，V1=3，并将它们提供给我需要在稍后提供给服务器中的模型的函数中。我正在处理的模型只采用函数格式。以下是我的代码。

用户界面：

#Set up
rm(list=ls())

library(shiny)
library(shinydashboard)
library(shinyBS)
library(dplyr)

#Design sidebar
sidebar <- dashboardSidebar(width = 200, collapsed=TRUE,
                            sidebarMenu(id="tabs",
                                        menuItem("Simulations", tabName = "Sims", icon = icon("line-chart"), selected=TRUE),
                                        menuItem("Placeholder", tabName = "Place", icon = icon("square-o"))
                            ))

#Design body 
body <- dashboardBody(
  tabItems(
    tabItem(tabName = "Sims", 
            box(collapsible=TRUE, width = 3, status = "success", solidHeader = T, title="Select Your Model",
                radioButtons(inputId="PK_Model", label = "PK Model", selected="One_Comp", 
                             choices = c("1 Compartment"="One_Comp", "2 Compartment"="Two_Comp")),
                radioButtons(inputId="Clearance_Model",label ="Clearance Mechanism", selected="Linear", 
                             choices = c("Linear"="Linear"))),
            box(collapsible=TRUE, status = "success", solidHeader = T, title="Enter Parameter Estimates", 
                        conditionalPanel(condition = "input.Clearance_Model == 'Linear'",
                                          numericInput(label="Clearance (Linear) (CL; L/day)", inputId="CL", min = 0, max = NA, value = 0),
                                          numericInput(label="Central volume of distribution (V1; L)", inputId="V1", min = 0, max = NA, value = 0)),
                         conditionalPanel(condition = "input.PK_Model == 'Two_Comp'",
                                          numericInput(label="Inter-compartment clearance (Q; L/day)", inputId="Q", min = 0, max = NA, value = 0),
                                          numericInput(label="Peripheral volume of distribution (V2; L)", inputId="V2", min = 0, max = NA, value = 0))),
              box(collapsible=T, width=2, status = "success", solidHeader = T, title="Run",
                actionButton('gosim','Run Sims',class='btn btn-info', icon=icon('play-circle-o','fg-lg'))), 
              box(width=5, status = "success", solidHeader = T, title="Simulated", textOutput('testprint')))))

#Show title and the page (includes sidebar and body)
dashboardPage(skin=c("blue"),
              dashboardHeader(titleWidth=900, title = "Shiny Test"),
              sidebar,  body)

更新：按照下面的PoGibas的回答，我将服务器代码更新为以下内容，但结果看起来并不像我需要的那样。

Server:

    library(shiny)
    library(shinydashboard)
    library(shinyBS)
    library(RxODE)
    library(parallel)
    library(ggplot2)

test <- function (N1, N2, N3, N4) {
  mypar <- function(lKa, lKdeg, N1, N2, N3, N4){
    Ka=exp(lKa)
    Kdeg=exp(lKdeg)
    V1=N1
    CL=N2
    Q=N3
    V2=N4}
  return(mypar)
}

    shinyServer(function(input, output, session){

 mypar <-eventReactive(input$goSimPH20, {
  N1=as.numeric(input$V1)
  N2=as.numeric(input$CL)
  N3=as.numeric(input$Q)
  N4=as.numeric(input$V2)
  par1 = test(N1, N2, N3, N4)
  return(par1)
})

        output$testprint <- renderText(mypar())  

        })

当我在服务器中调用mypar（）时，我需要的结果如下所示：

test <- function (lKa, lKdeg, V1, CL, Q, V2) {
            Ka=exp(lKa)
            Kdeg=exp(lKdeg)
            V1=xx
            V2=xx
            CL=xx
            Q=xx
            }

xx可以是UI中任何用户提供的值。

Answer 1

我将服务器部分简化为：

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())  
})

在test功能中添加您想要的公式。使用V1 = as.numeric(input$V1)提取用户输入，并使用test传递给test(V1, CL)。

来自输入

1 个答案: