R bsplus包：bs_tooltip不适用于Shiny中的dateRangeInput / dateInput

Question

软件包bsplus很好并且易于使用，但似乎无法处理dateRangeInput。那是个错误吗？

 Error in .tag_validate(tag, name = "div", class = "form-group shiny-input-container") : 
  class is: shiny-date-range-input form-group shiny-input-container, needs to be: form-group shiny-input-container 

它与selectInput和最常用的输入完美配合

没有工具提示就可以

## Only run examples in interactive R sessions
if (interactive()) {

  ui <- fluidPage(
    dateRangeInput("daterange1", "Date range:",
                   start = "2001-01-01",
                   end   = "2010-12-31")    
  )    ,
    selectInput("date", "Date:",
                   choices = c("me","you"))%>%
    shinyInput_label_embed(
      icon("question-circle") %>%
        bs_embed_tooltip(title = "choose your date range dude !")
    )


  shinyApp(ui, server = function(input, output) { })
}

没有工具提示...

## Only run examples in interactive R sessions
if (interactive()) {

  ui <- fluidPage(
    dateRangeInput("daterange1", "Date range:",
                   start = "2001-01-01",
                   end   = "2010-12-31")%>%
      shinyInput_label_embed(
        icon("question-circle") %>%
          bs_embed_tooltip(title = "choose your date range dude !")
      )    ,
    selectInput("date", "Date:",
                   choices = c("me","you"))%>%
    shinyInput_label_embed(
      icon("question-circle") %>%
        bs_embed_tooltip(title = "choose your date range dude !")
    )



  )

  shinyApp(ui, server = function(input, output) { })
}

它也不能与dateInput一起使用...