ОШИБКА: оператор $ недопустим для атомарных векторов в блестящей панели инструментов

Question

Я нахожусь в процессе создания блестящей приборной панели, я создаю 3 виджета два SelectizeInput и radioButton, проблема в том, что, когда я добавил radioButton, это отображалось

ОШИБКА: оператор $ недопустим для атомарных векторов

NB: тот же код, который он работал один раз, потом потерпел неудачу.

это код R относительно виджетов. Может кто-то помочь мне, пожалуйста

dashboardBody(
tabItems(
   tabItem(tabName = "dashboard",h2("Analyse du comportement électoral des citoyens tunisiens", align="center",style = "color:blue"),


           fluidRow(
             tiltle="filtre",
             column(width=4,
                    box(
                        title = "Filtre",
                        status = "primary",
                        width = 8,
                        solidHeader = TRUE,
                        background="navy", 
                        box(

                          solidHeader = FALSE,
                          width = 8,
                          background = "navy" ,
                          radioButtons("genre", "Genre", list("Homme","Femme","Tous"),"Tous")

                        ),

                        box(
                          solidHeader = FALSE,
                          width = 12,
                          background = "navy",
                          selectizeInput("region", label = "Région",
                                      choices = levels(data$REGION), 
                                      selected = "Ariana", multiple=TRUE)


                        ),

                        box(
                          solidHeader = FALSE,
                          width = 12,
                          background = "navy",
                          selectizeInput("parti", label = "Parti politique",
                                      choices = levels(data$Q99), 
                                      selected = "", multiple=TRUE)


                        ),
                        box(
                          submitButton("Mettre à jour!",icon("refresh")),
                          background = "navy"


                        )
                       )),