r - チェックボックスグループ内のshinyBS Modal

Question

そこshinyBS::bsModal()にUI要素の説明を配置していました。bsButton()チェックボックスのタイトルの後ろに を配置するとうまくいきます。

チェックボックスオプションの後ろに配置したいと思います。最初のヒントは、ツールチップに対して同じことが行われるこの回答になる可能性があります(ただし、私の変更は機能しません)。

最小限の例:

library(shiny)
library(shinyBS)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      checkboxGroupInput("qualdim",  
                         tags$span("Chekboxoptions",   
                             bsButton("modalbt", "?", style = "inverse", size = "extra-small")),

                         c("Option_1" = "Option_1", 
                           "Option_2" = "Option_2"))
    ),

    mainPanel(
      bsModal("modalExample", "Modal", "modalbt", size = "large",
           verbatimTextOutput("helptext")))
  )
)

server <- function(input, output) {
  output$helptext <- renderText({"I can trigger a shinyBS::bsModal() from here, but I want to place two buttons behind `Option_1` and     `Option_2`" })
}

shinyApp(ui = ui, server = server)