Регулировка ширины заголовков tabPanel с помощью R Shiny - PullRequest
Новая
       23

Регулировка ширины заголовков tabPanel с помощью R Shiny

0 голосов
/ 12 ноября 2019

При создании макета моего веб-приложения R Shiny я столкнулся с проблемой, решение которой не смог найти на форумах.

Моя цель состоит в том, чтобы на моей странице была панель вкладок, где заголовки занимают всю ширину самой стороны. 

library(shiny)
ui <- fluidPage(
   tabsetPanel(
    tabPanel("Title1", tags$h1("text")),
    tabPanel("Title2", tags$h1("text")),
    tabPanel("Title3", tags$h1("text")),
    tabPanel("Title4", tags$h1("text"))
   )
)

server <- function(input, output) {

}

shinyApp(ui = ui, server = server)

Если вы запускаете это блестящее приложение, заголовки занимаюттолько около 10% ширины (особенно в полноэкранном режиме). Однако я бы хотел, чтобы они занимали всю ширину, чтобы каждый заголовок занимал одно и то же место.

Я почти уверен, что это можно решить с помощью CSS.

Любая помощь очень ценится!

1 Ответ

0 голосов
/ 12 ноября 2019

Я не очень хорош в CSS, но это должно дать вам (или другому участнику) начало. Проблема, с которой я сталкиваюсь, заключается в том, что перед заголовком появляется фантомная вкладка, и она не изменяет размер правильно, если вы делаете свой экран очень узким (делает до определенной точки, а затем терпит неудачу).

Надеюсь, этопомогает! 

library(shiny)
ui <- fluidPage(
  tabsetPanel(
    tags$head(tags$style(HTML('
                            /* HEADER */
                            .nav>li>a {
                            padding: 1vh 8vw;;
                            }'
))),



    tabPanel("Title1", tags$h1("text")),
    tabPanel("Title2", tags$h1("text")),
    tabPanel("Title3", tags$h1("text")),
    tabPanel("Title4", tags$h1("text"))
  )
)

server <- function(input, output) {

}

shinyApp(ui = ui, server = server)
...