更改 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你的文字。