工具提示 R 闪亮的 flexdashboard：标签不是闪亮的.tag

Question

我正在尝试在具有闪亮运行时的 flexdashboard 上使用 bsplus 包中的工具提示，它在本地工作，但是当我将其上传到我的服务器时，它说

Warning: Error in .tag_validate: tag is not a shiny.tag - tag must be generated using htmltools or shiny

你怎么看？这是一个最小的工作示例。

---
title: "Test"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    runtime: shiny 
---

```{r setup, include=FALSE}
packages_required = c("flexdashboard","bsplus","tidyr","shiny","dplyr")
invisible(lapply(packages_required, require, character.only = TRUE))
```


Column {.sidebar}
-----------------------------------------------------------------------

### Chart B

```{r}
shinyWidgets::sliderTextInput(inputId = "percent",
                              label = h4("Some levels:"),
                              grid = TRUE,
                              force_edges = TRUE,
                              choices = c(10,40,50,70,100))%>%
   shinyInput_label_embed(
     icon("info") %>%
       bs_embed_tooltip(title = "A realistic value is around 30%-70%", container='body')
   )

```