Как получить переключатели в качестве переменных для применения условий?

Question

Я пытаюсь получить реактивную работу выражения на основе входных сигналов переключателя mt. Мне нужно получить один из моих уровней в переключателе в качестве переменной, чтобы я мог применить ее и, если она еще была условной, к ней.Но я не могу получить доступ к этому уровню напрямую из входного $ radio, чтобы применить к нему условие.

##Shiny web app
library(shiny)
ui<-fluidPage(
  #App Title
  titlePanel("Association Rule Mining"),

  #side bar layout with inp/op
  sidebarLayout(
    sidebarPanel(

      #slider input1
      sliderInput(inputId = "support",
                  label="Value of Support",
                  min=0.01,
                  max=1,
                  step = 0.01,
                  value = 0.01),
      #slider input 2
      sliderInput(inputId = "confidence",
                  label = "Value of confidence",
                  min=0.1,
                  max=1,
                  step=0.01,
                  value=0.5),
      radioButtons("radio","Rule Type",choices=c("All Rules","Large Income Rules","Small Income Rules"))

    ),
    #main panel for output
    mainPanel(
      verbatimTextOutput("Rules"),
      #plotOutput("plot_rules")
    )

  )
)



server<-function(input,output){
  a_rules<-reactive({
    if (input$radio==`All Rules`){
      rules<-apriori(adult_trans,parameter = list(support = input$support, confidence = input$confidence))  
    }
    else{
    type=switch(input$radio,
           `Large Income Rules` ="income=large",
           `Small Income Rules`="income=small")
           rules<-apriori(adult_trans,parameter = list(support = input$support, confidence = input$confidence),appearance = list(default="lhs",rhs=type))}


    subset_rules(rules)
    inspect(head(rules, 5))
      })

  #transrules<-reactive({apriori(adult_trans, parameter = list(support = input$support, confidence = input$confidence))})
  output$Rules<-renderPrint({a_rules()})
  #output$plot_rules<-renderPlot(plot(a_rules(),measure = c("support", "lift"), shading = "confidence"))
}
shinyApp(ui,server)