Перенос слов или новая строка в заголовке shinydashboard - PullRequest
Новая
       13

Перенос слов или новая строка в заголовке shinydashboard

2 голосов
/ 08 апреля 2019

Я использую shinydashboard, но если заголовок слишком длинный, он не переносит строки. Я попытался использовать <br/> для достижения этой цели, но он не работает даже с HTML() в этом контексте.

Я знаю, что могу увеличить пространство надписей с помощью titleWidth, но во многих случаях это выглядит не так хорошо.

Какой самый простой способ добиться этого?

Вот пример: 

library(shiny)
library(shinydashboard)

## Only run this example in interactive R sessions
if (interactive()) {
    header <- dashboardHeader(title = "This title is just way too long")

    sidebar <- dashboardSidebar(
        sidebarUserPanel("User Name",
                         subtitle = a(href = "#", icon("circle", class = "text-success"), "Online"),
                         # Image file should be in www/ subdir
                         image = "userimage.png"
        ),
        sidebarSearchForm(label = "Enter a number", "searchText", "searchButton"),
        sidebarMenu(
            # Setting id makes input$tabs give the tabName of currently-selected tab
            id = "tabs",
            menuItem("Dashboard", tabName = "dashboard", icon = icon("dashboard")),
            menuItem("Widgets", icon = icon("th"), tabName = "widgets", badgeLabel = "new",
                     badgeColor = "green"),
            menuItem("Charts", icon = icon("bar-chart-o"),
                     menuSubItem("Sub-item 1", tabName = "subitem1"),
                     menuSubItem("Sub-item 2", tabName = "subitem2")
            )
        )
    )

    body <- dashboardBody(
        tabItems(
            tabItem("dashboard",
                    div(p("Dashboard tab content"))
            ),
            tabItem("widgets",
                    "Widgets tab content"
            ),
            tabItem("subitem1",
                    "Sub-item 1 tab content"
            ),
            tabItem("subitem2",
                    "Sub-item 2 tab content"
            )
        )
    )

    shinyApp(
        ui = dashboardPage(header, sidebar, body),
        server = function(input, output) { }
    )
}

Цель состоит в том, чтобы применить перенос слов, чтобы мы могли прочитать весь заголовок (который говорит "This title is just way too long").

1 Ответ

2 голосов
/ 09 апреля 2019 
header <- dashboardHeader(title = h4(HTML("This title<br/>is just way too long")))

shinyApp(
  ui = dashboardPage(header, sidebar, body),
  server = function(input, output) { }
)

enter image description here

...