Автоматически менять панель навигации, чтобы быть в меню или горизонтальной в ShinyApp - PullRequest
Новая
       9

Автоматически менять панель навигации, чтобы быть в меню или горизонтальной в ShinyApp

0 голосов
/ 27 марта 2020

Я использую стандартный , и я бы хотел, чтобы приложение поддерживало мобильное представление, в частности панель навигации, определенным образом. по умолчанию поддерживает адаптивный дизайн. Тем не менее, для панели навигации, когда я смотрю приложение в мобильном представлении, элементы nav-bar переупорядочиваются по вертикали, занимая много места на экране (в строках). Я хочу, чтобы приложение в мобильном представлении отображало элементы в меню бургера ИЛИ делало элемент на горизонтальном экране. Большую часть решения я нашел с помощью кнопки, чтобы скрыть меню. Какие-либо предложения?

вот мой MWE: 

      library(shiny)

    ui <- fluidPage(          

      navbarPage(title = "My App Example", 

                     tabPanel("item-1"),             
                     tabPanel("Item-2"),
                     tabPanel("Item-3")
     )
    )
    Server<-function(input, output, session) {

    }
    shinyApp(ui, Server)

Заранее спасибо!

...