r - 反应式不能动态使用下拉菜单

Question

我有两个 ggraph 图 - graph1 和 graph2，我希望在选择下拉项目“1”时显示 graph1，并在选择下拉项目“2”时显示 graph2。但是，响应式不会显示所选值上的任何图。我在server.UI中使用以下代码片段

shinyServer( function(input, output, session) {

    inData <- reactive({
        if ("1" %in% input$in) return(graph1)
        if ( "2" %in% input$in) return(graph2)
        })
    output$plot <- renderPlot(
        inData)
})

这是UI.R 文件

shinyUI(fluidPage(
    titlePanel("Test"),
    sidebarLayout(
        sidebarPanel(
            selectInput("in", 'Choose', choices = list("1","2"))),
        mainPanel(
            plotOutput("plot")
        )
    )
))

如果我直接放

output$plot <- graph1

graph1 显示正确。

我觉得这里有问题？？

if ("1" %in% input$in) return(graph1)
if ( "2" %in% input$in) return(graph2)