Мне нужно ввести 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])
})