Shinydashboard: как разместить menusubitem вне гиперссылки

Question

Я использую shinydashboard и в dashboardSidebar мне нужно выбрать некоторые элементы в пункте меню. Когда я выбираю более одного элемента в selectInput с помощью кнопки управления или переключения, открывается новая страница Chrome. Когда я пробую прямо в Rstudio, это не проблема.

Похоже, что панель инструментов помещает элементы меню в гиперссылку (предложено Дином Аттали).

Как мне избежать этой реакции?

Спасибо

    shinyApp(
    ui = dashboardPage(skin = 'blue',
        dashboardHeader(title = 'reprexes', titleWidth = 450),
        dashboardSidebar(width = 350,

            tags$style('.fa-table {color:#33cc33}'),     
            tags$style('.table2 {color:#0099ff}'),     

            sidebarMenu(width = 350,
            menuSubItem( p(''),
            icon = NULL),
            menuItem('Example1', icon = icon('table'),
            menuSubItem(uiOutput('col_sel'),icon = NULL)

            )
            ) # sidebarMenu
        ), # dashboardSidebar


        dashboardBody(    
            tabBox(width = '500px',

            tabPanel('Instructions', 
            h4('Plots') )   # tabPanel
            )   # tabBox
        )
    ),
    server = function(input, output, session) {
        output$col_sel <- renderUI({
        cn <-c('New York', 'Paris', 'Pekin')
        selectInput('var_1', 'Select the variables', 
        choices  = cn,
        selected = 1,
        multiple=TRUE, selectize=FALSE)
        })
    }
)