Question

所以我对Shiny有点新鲜，但不能为我的生活，弄清楚如何将滑块输入值组织到命名列表中。现在，我有一个UI设置，允许11个输入。

library(shiny)

shinyUI(pageWithSidebar(
  headerPanel("Quorom Sensing Model"),
  sidebarPanel(
sliderInput("n", "Hill Coefficient:", 
            min=0, max=10, value=2, step=0.5),
sliderInput("K", "Max Contribution to lacI transcription:", 
            min=0, max=50, value=20, step=1),
sliderInput("k0_AI", "Initial Synthesis Rate of AI:", 
            min=0, max=5, value=3.5, step=0.1),
sliderInput("k1_AI", "Repressor dependent rate of synthesis of AI:", 
            min=0, max=1, value=.033, step=0.001),
sliderInput("eta", "diffusion rate of AI across cell membrane:", 
            min=0, max=5, value=.7, step=0.1),
sliderInput("k_deg", "extracellular AI degredation Rate:", 
            min=0, max=1, value=.525, step=0.001),
sliderInput("k_diff", "extracellular diffusion rate of AI:", 
            min=0, max=10, value=2.1, step=0.1),
sliderInput("alpha_tetR", "Alpha tetR:", 
            min=0, max=50, value=24, step=1),
sliderInput("alpha_cI", "Alpha cI:", 
            min=0, max=50, value=24, step=1),
sliderInput("alpha_lacI", "Alpha lacI:", 
            min=0, max=50, value=24, step=1),
sliderInput("beta", "Ratio of protein decay to mRNA decay rate:", 
            min=0, max=10, value=1.05, step=0.05)
  ),
  mainPanel(
plotOutput("timeSeries"),
plotOutput("timeSeries2")
 )) 
)

所以这些滑块输入需要输入命名列表，其中参数（命名列表）= c（n =输入$ n的值，K =输入$ K等），所以我可以将命名数字列表提供给一个函数，该函数执行生成输出所需的数学运算。

现在，我有函数params，它根据输入变量返回一个命名列表：

params <- function(n = 2, 
               K=20, 
               k0_AI=3.5, 
               k1_AI=0.033, 
               eta=0.7,
               k_deg=0.525, 
               k_diff=2.1, 
               alpha_tetR=24,
               alpha_cI=24,
               alpha_lacI=24,
               beta=1.05){
  paramlist <- c(n = n, 
             K = K, 
             k0_AI = k0_AI, 
             k1_AI = k1_AI, 
             eta = eta,
             k_deg = k_deg, 
             k_diff = k_diff, 
             alpha_tetR = alpha_tetR,
             alpha_cI = alpha_cI,
             alpha_lacI = alpha_lacI,
             beta = beta)
  return(paramlist)

}

从server.R调用哪个，输入变量从滑块设置为输入$ etc？

library(shiny)
library(ggplot2)
library(reshape2)
library(deSolve)
source("params.R")
shinyServer(function(input,output){


parameters = reactive({
        params(n =  input$n, 
         K = input$K, 
         k0_AI = input$k0_AI, 
         k1_AI= input$k1_AI, 
         eta = input$eta,
         k_deg = input$k_deg, 
         k_diff = input$k_diff, 
         alpha_tetR = input$alpha_tetR,
         alpha_cI = input$alpha_cI,
         alpha_lacI =input$alpha_lacI,
         beta = input$beta
    )
})

eval中的错误（替换（expr），数据，enclos = parent.frame（））：无效＆＃39; envir＆＃39;类型＆＃39;封闭＆＃39;

的论点

同样，我需要输入滑块值作为命名列表的一部分，其中滑块的名称=值，并且可以从函数调用列表的名称。我怎么能这么容易地做到这一点？谢谢！

Answer 1

我认为这两步过程是有效的。

首先 - 制作一个reactiveValues对象来容纳所有这些。您可以随时添加值：

Values <- reactiveValues()
Values$n <- input$n
Values$K <- input$K

等等。

然后使用reactiveValuesToList制作列表

reactiveValuesToList(Values)

该列表将包含您可能期望的名称。 Values$K值将命名为“K”，依此类推。您可以将它放在需要列表的位置。

闪亮的滑块输入命名列表

1 个答案: