闪亮的应用未使用我的用户定义功能显示剧情

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”。没有人看到任何迹象表明为什么它将无法运行吗？

我尝试调试它，而麻烦来自“输出”行。

谢谢！