Модальное всплывающее окно для valueBox с блестящей js и гибкой панелью управления

Question

Я пытаюсь вызвать всплывающее сообщение для valueBox в flexdashboard, используя блестящий js. Здесь есть аналогичный вопрос , , но он не работает с flexdashboard.

Flexdashboard создается с использованием файла RMarkdown.

---
title: "Test valuebox"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
runtime: shiny
---

```{r}
library(flexdashboard)
library(shiny)
library(shinyjs)

useShinyjs(rmd = TRUE)

onclick('valbox', showModal(modalDialog(
    title = "message",
    "This is an important message!"
  )))
```

Inputs {.sidebar}
-------------------------------------

```{r ui}
sliderInput('valsel', 'Select number:', min = 0, max = 10, value = 5)
```

Column 
-------------------------------------

###   

```{r}

output$valbox <- renderValueBox(flexdashboard::valueBox(input$valsel, "selected"))

valueBoxOutput('valbox')
```

Я проверил HTML, созданный приложением, и идентификатор для поля значения действительно равен 'valbox'. Я попытался создать уникальный идентификатор с тегами, но это тоже не сработало.