Реактив не работает с выпадающим динамически - PullRequest
Новая
       66

Реактив не работает с выпадающим динамически

0 голосов
/ 19 февраля 2020

У меня есть два графика ggraph - graph1 и graph2, и я хочу, чтобы graph1 отображался при выборе раскрывающегося элемента «1», а график graph2 - при выборе раскрывающегося элемента «2». Но реактивный не отображает какие-либо графики на выбранных значениях. Я использую следующий фрагмент кода в 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

График1 отображается правильно.

Я думаю, что здесь есть какая-то проблема ?? 

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