R基于选择输入的闪亮无功输出

Question

我希望根据用户的选择向用户呈现不同的输出。但是，该代码无法正常工作，仅返回1个选项（pc）并且似乎永远不会到达另一个选项（pm）。我将不胜感激地建议如何解决它。谢谢。

ui.R

shinyUI(fluidPage("lt Assumptions",
                            sidebarLayout(
                              sidebarPanel(
                                radioButtons("lt.forecast.choice", "lt Forecasting Method",
                                             c("Percentage Change"="pc", "Product Mix"="pm")
                                )
                              ),
                              mainPanel(
                                rHandsontableOutput("lt.forecast")                                   
                              )
                            )
                   )

server.R

shinyServer(function(input, output) {

  v = reactiveValues()

    if(!is.null(input$lt.forecast.choice)) {

          if(input$lt.forecast.choice=="pc"){

            if (!is.null(input$lt.forecast)) {
              v$lt.forecast <- hot_to_r(input$lt.forecast)
            } else {    


              v$lt.forecast <- rev.pct
            }
          }

          else if(input$lt.forecast.choice == "pm"){

            if (!is.null(input$lt.forecast)) {
              v$lt.forecast <- hot_to_r(input$lt.forecast)
            } else {    

              v$lt.forecast <- Product.Mix

            }
          }

        }
    })

    output$lt.forecast <- renderRHandsontable({

        rhandsontable(v$lt.forecast) 


      })
}