R: проблема с 3 selectInput (Shiny + Flexdashboard) 2 реактивных - PullRequest
0 голосов
/ 11 апреля 2020

Мне нужно ввести 3 SelectInput, но 2 реактивных, и это не работает должным образом. При выборе первого SelectInput первый реактив работает нормально, но мне нужно обновить третий реактив SelectInput со второго, и он не отображается на панели инструментов.

df имеет 3 столбца (col1, col2, col3)

Код:

selectInput('id1', label = 'Select: ', choices = c('a','b','c','d')

choice1 = reactive({
filter(df,grepl(input$id1, col1))
})

renderUI({selectInput('id2', label = 'Select: ', choices = choice1()$col2 %>% unique(),selected=choice1()$col2[1])
  })

choice2 = reactive({
filter(df,grepl(input$id1, col1),grepl(input$id2, col2))
})

renderUI({selectInput('id3', label = 'Select: ', choices = choice2()$col3%>% unique(),selected=choice2 ()$col3[1])
})
...