Как использовать ввод из selectInput для среза данных

Question

У меня есть проблема, похожая на R Shiny selectInput , я хотел бы использовать input, чтобы разрезать мои данные следующим образом:

selectInput("category", "Choose a Category:",
                            choices = c('Any', levels(as.factor(unique(BD$DX_01_Cat))))), 

uiOutput("secondSelection")

if (input$category != "Any"){
       subsetSubsTab <<- subsetSubsTab[subsetSubsTab$DX_01_Cat==input$category];

output$secondSelection <- renderUI({
       selectInput("subdiagnosis", "Choose a Subdiagnosis:", choices = c("Any", as.character(subsetSubsTab[subsetSubsTab$DX_01_Cat==input$category, DX_01_Sub])) , selected = "Any")
     })

if (input$subdiagnosis != "Any"){
       subsetSubsTab <<- subsetSubsTab[subsetSubsTab$DX_01_Sub==input$subdiagnosis];
     }

, но последний if statement не работает.

Я получаю предупреждение Warning: Error in if: argument is of length zero, subsetSubsTab актуализируется в течение секунды и возвращается назад.Может ли кто-нибудь помочь, пожалуйста?