ShinyDashboard: значок Label в меню SubItem - PullRequest
Новая
       4

ShinyDashboard: значок Label в меню SubItem

2 голосов
/ 07 марта 2019

Я пытаюсь включить badgeLabel в menuSubItem следующим образом: 

sidebarMenu(id="tabs",
            menuItem("First Item",tabName="Item1"),
            menuItem("Secon Item", tabName = "Item2", icon = icon("bell"),
                     menuSubItem("Sub Item1",tabName="subI1"),
                     menuSubItem("Sub Item2",tabName="subI2", badgeLabel = "beta", badgeColor = "blue")
            )
)

Но я получаю ошибку:

Ошибка в menuSubItem ("Sub Item2", tabName = "subI2", badgeLabel = "бета",: неиспользованные аргументы (badgeLabel = "бета", badgeColor = "Синий")

Если я введу его в menuItem, он просто отлично работает, но мне нужно в menuSubItem. Любые предложения?

1 Ответ

2 голосов
/ 07 марта 2019

menuSubItem не имеет этого аргумента. Таким образом, вам нужно написать свою собственную menuSubItem функцию: 

menuSubItem2 <- function (text, tabName = NULL, href = NULL, newtab = TRUE, 
                          icon = shiny::icon("angle-double-right"), 
                          selected = NULL, badgeLabel = NULL, badgeColor = "green") {
    if (!is.null(href) && !is.null(tabName)) {
        stop("Can't specify both href and tabName")
    }
    isTabItem <- FALSE
    target <- NULL
    if (!is.null(badgeLabel)) {
        badgeTag <- tags$small(class = paste0("badge pull-right bg-", 
            badgeColor), badgeLabel)
    }
    else {
        badgeTag <- NULL
    }

    if (!is.null(tabName)) {
        shinydashboard:::validateTabName(tabName)
        isTabItem <- TRUE
        href <- paste0("#shiny-tab-", tabName)
    }
    else if (is.null(href)) {
        href <- "#"
    }
    else {
        if (newtab) 
            target <- "_blank"
    }
    tags$li(a(href = href, `data-toggle` = if (isTabItem) 
        "tab", `data-value` = if (!is.null(tabName)) 
        tabName, `data-start-selected` = if (isTRUE(selected)) 
        1
    else NULL, target = target, icon, span(text), badgeTag))
}
...