R 闪亮-尝试复制类型为'；关闭'；

我正在尝试编写一个简单的闪亮应用程序，它绘制了一个指数衰减函数，用户可以在其中输入不同的lambda值。我尝试过的每一个变体都会导致“rep中出错（value，length.out=nrows）：尝试复制“closure”类型的对象。”我尝试接受线程的建议，但未能解决我的问题

library(shiny)
decay <- data.frame(days= seq(100, 0)) 

ui <- fluidPage( 
  sliderInput(inputId = "lambda",
              label = "Choose a number",
              value = 0.0, min = 0.0, max = 0.2),
  plotOutput("lplot")
)

server <- function(input, output){
  decay[[2]] <- reactive({
    exp(-input$lambda*decay[[1]])
  })
  output$lplot <- renderPlot({
    plot(decay())
  })

}

shinyApp(ui = ui, server = server)

库（闪亮）
衰变

decay[[2]] <- reactive

我怀疑您想使用
衰变
数据帧中的所有
天

在这种情况下，你应该改变你的结构

library(shiny)
decay <- data.frame(days= seq(100, 0)) 

ui <- fluidPage( 
  sliderInput(inputId = "lambda",
              label = "Choose a number",
              value = 0.0, min = 0.0, max = 0.2),
  plotOutput("lplot")
)

server <- function(input, output){

  r_decay <- reactive({
    exp(-input$lambda*decay$days)
  })
  output$lplot <- renderPlot({
    plot(r_decay())
  })

}

shinyApp(ui = ui, server = server)

库（闪亮）
衰变衰变[[1]]
应该给予什么？是的，就是这样。谢谢你的帮助。
library(shiny)
decay <- data.frame(days= seq(100, 0)) 

ui <- fluidPage( 
  sliderInput(inputId = "lambda",
              label = "Choose a number",
              value = 0.0, min = 0.0, max = 0.2),
  plotOutput("lplot")
)

server <- function(input, output){

  r_decay <- reactive({
    exp(-input$lambda*decay$days)
  })
  output$lplot <- renderPlot({
    plot(r_decay())
  })

}

shinyApp(ui = ui, server = server)