Html 设置单个bsTooltip（shinyBS）元素的样式

我正试图通过shinyBS包的

bsTooltip（）

功能向我闪亮的应用程序中的不同操作按钮添加一些工具提示，我只想修改特定工具提示框的宽度。为此，我可以在UI的开头指定HTML标记并直接修改CSS，但如果我使用简单元素

.tooltip{…}

我会修改代码中每个工具提示的宽度：

下面，您可以找到具有两个不同操作按钮的最小可复制示例：

library(shiny)
library(shinyBS)

library(shiny)

ui <- fluidPage(

  tags$head(tags$style(HTML(".tooltip {width: 300px;}"))),

  br(),

  actionButton(inputId = "button1",
               label = "First"),
  bsTooltip(id = "button1",
            title = "Bonjour!",
            placement = "right",
            trigger = "hover"),

  br(),
  br(),

  actionButton(inputId = "button2",
               label = "Second"),
  bsTooltip(id = "button2",
            title = "Hello!",
            placement = "right",
            trigger = "hover")

)

server <- function(input, output, session) {

}

shinyApp(ui, server)

但这在这种情况下似乎不起作用

---

非常感谢你的帮助

您可以使用id将

操作按钮

和

b工具提示

包装在

div

中。现在，您可以根据其id选择该

div

，并且只在其中设置工具提示的样式

library(shiny)
library(shinyBS)

ui <- fluidPage(

  tags$head(tags$style(HTML("#button1_div .tooltip {width: 300px;}"))),

  br(),
  div(id='button1_div',
      actionButton(inputId = "button1",
                   label = "First"),
      bsTooltip(title = "Bonjour!",
                placement = "right",
                trigger = "hover")),

  br(),
  br(),

  actionButton(inputId = "button2",
               label = "Second"),
  bsTooltip(id = "button2",
            title = "Hello!",
            placement = "right",
            trigger = "hover")

)

server <- function(input, output, session) {

}

shinyApp(ui, server)

库（闪亮）
图书馆（shinyBS）
谢谢你的回复。我是初学者。我希望您在这之后至少展示一个如何设计div样式的示例。谢谢
library(shiny)
library(shinyBS)

ui <- fluidPage(

  tags$head(tags$style(HTML("#button1_div .tooltip {width: 300px;}"))),

  br(),
  div(id='button1_div',
      actionButton(inputId = "button1",
                   label = "First"),
      bsTooltip(title = "Bonjour!",
                placement = "right",
                trigger = "hover")),

  br(),
  br(),

  actionButton(inputId = "button2",
               label = "Second"),
  bsTooltip(id = "button2",
            title = "Hello!",
            placement = "right",
            trigger = "hover")

)

server <- function(input, output, session) {

}

shinyApp(ui, server)