Выпадающее меню с подкатегорией с использованием R и Shiny

Я хочу создать выпадающее меню с подкатегориями, используя R - как должна быть введена подкатегория?

`if (interactive()) {  
 ui <- fluidPage(
selectInput("variable", "Variable:",
            c("HTML Code tester", "Font Styler", "CSS3 Generator", "Box Shadow", "Border Radius"))

)

server <- function(input, output) {

}

shinyApp(ui, server)
}`

Фактический результат: Фактический результат Желаемый результат: Желаемый результат

Как мне создать что-то вроде желаемого результата?

Спасибо!


r shiny shinybs shinyjs
person Harryy    schedule 12.11.2016    source источник
comment
Это немного другой контекст, но вы можете проверить menuSubItem в shinydashboard.   -  person Hack-R    schedule 13.11.2016

Ответы (1)


arrow_upward
1
arrow_downward

Это может сработать для вас:

 selectInput("variable", "Variable:",
              list("HTML Code tester",
                   "Font Styler", 
                   "CSS3 Generator"=c( "Box Shadow", "Border Radius")))
person yeedle    schedule 12.11.2016
comment
Это верно. Я не думаю, что базовый бутстрап поддерживает многоуровневые выпадающие меню. Для этого его необходимо продлить. - person yeedle; 13.11.2016
comment
Правильно, он просто добавляет заголовок к пунктам меню. Спасибо @yeedle - person Harryy; 13.11.2016