更改 boxSidebar 工具提示中的文本

Question

我正在為我的非英語閃亮應用程序使用 boxSidebar，並且真的想替換出現在圖標上的“更多”文本。 誰能幫我解決這個問題？

或者，我想通過使用 shinyjs::hide() 來刪除它，但 ID 似乎在每次懸停時都會改變，所以我不知道這是否是一個選項。

最小示例：

library(shiny)
library(shinydashboard)
library(shinydashboardPlus)

shinyApp(
    ui = dashboardPage(
        header = dashboardHeader(),
        body = dashboardBody(
            box(
                title = "Hover icon", 
                sidebar = boxSidebar(
                    id = "mycardsidebar",
                    p("Sidebar Content")
                )
            )
        ),
        sidebar = dashboardSidebar()
    ),
    server = function(input, output, session) {
    }
)

Answer 1

我們可以使用 {htmltools} 來完成這項工作：

library(shiny)
library(shinydashboard)
library(shinydashboardPlus)
library(htmltools)
library(magrittr)
shinyApp(
    ui = dashboardPage(
        header = dashboardHeader(),
        body = dashboardBody(
            box(
                title = "Hover icon", 
                sidebar = boxSidebar(
                    id = "mycardsidebar",
                    p("Sidebar Content")
                )
            ) %>% {
                tagQuery(.)$
                    find("#mycardsidebar")$
                    removeAttrs("data-original-title")$
                    addAttrs(`data-original-title`="whatever")$
                    allTags()
            }

        ),
        sidebar = dashboardSidebar()
    ),
    server = function(input, output, session) {
    }
)

whatever你的文字。