html - 個々の bsTooltip (shinyBS) 要素のスタイルを設定する

Question

ShinyBSbsTooltip()パッケージの関数を使用して、光沢のあるアプリのさまざまなアクション ボタンにいくつかのツールチップを追加しようとしています。特定のツールチップ ボックスの幅だけを変更したいと考えています。これを行うには、UI の先頭に HTML タグを指定して CSS を直接変更しますが、単純な要素を使用する場合は、コード内のすべてのツールヒントの幅を変更します。.tooltip {...}

以下に、2 つの異なるアクション ボタンを使用した最小限の再現可能な例を示します。

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)

たとえば、特定のウィジェットのプレースホルダーの色を変更する必要があったときなどです。textInput()そのために、HTML()関数で次のように指定しました。

tags$head(tags$style(HTML("#textinput_ID::placeholder {color: #EEE1525;}")))

しかし、これはこの場合うまくいかないようです。

助けてくれてどうもありがとう！