r - 闪亮的应用程序未使用我的用户定义函数显示绘图

Question

我正在制作我的第一个闪亮的应用程序——一个带有滑块输入的直方图。但是，我想使用用户定义的函数来生成此直方图的输出。这是有关直方图的代码块：

#Define server logic required to draw a histogram
server <- function(input, output) {
  output$distPlot <- renderPlot({

 #Use the function for a constant risk, but sample uniformly over CI for OR
 #95% CI: 1.19-1.41

  myrisk<-input$risk
  random<-runif(1000, min = 1.19, max = 1.41)

  output<-sapply(random, myfunction, risk=myrisk)

 hist(output, xlab="Number of Cases Prevented", 
      main="Histogram of 1000 Simulations")
  })
}

注意：在调用闪亮库之前，我在代码前面定义了“myfunction”。有没有人看到任何迹象表明为什么这不会运行？

我尝试调试它，问题来自“输出”行。

谢谢！

标签： rfunctionshinyhistogram