如何将Shiny R的Sliderbar与textInput一起使用以调整R中函数的参数

Question

我有一个在Shiny交互式会话中看起来像这样的函数：

foo <- function( x, y)
{
   return( x * y)
}

我的Shiny代码如下：

ui.R：

mainPanel(

   textInput("bar", label = "", value = "")
   sliderInput("parameter", label = "Changing Y", min = 0, 
    max = 100, value = 50)
   plotOutput("plotfoo", width = 400, height = 500))

)

server.R：

function(input, output, session)
{
   user_input <-  reactiveVal(c())

   observeEvent(input$bar,{
      user_input(foo(input$bar, input$parameter))
   })

   output$plotfoo <- renderPlot({
      plot(user_input(), input$parameter)
   })

}

我尝试不使用滑动条对参数进行硬编码，并且效果很好。但是，当我尝试运行会话时，在我在textInput框中重新键入另一个值之前，绘图不会改变。如果您能让我知道我该怎么做，那将是很棒的。非常感谢您的好回答！