ShinyAlert в Rmd Flexdashboard - PullRequest
Новая
       8

ShinyAlert в Rmd Flexdashboard

0 голосов
/ 20 февраля 2019

Я пытаюсь отобразить всплывающее окно на гибкой панели управления Rmd.

Вот мой код: 

---
title: "Test"
output: flexdashboard::flex_dashboard
runtime: shiny
---

```{r global, include= FALSE}
library(shinyalert)
```


```{r}
  useShinyalert(  )
  actionButton("helpBtn", "Help")
```


```{r}
  observeEvent(input$helpBtn, {
  shinyalert(title = "Help Me!", text = "Please contact your instructor")})

```

Кнопка отображается, но при нажатии она не показывает всплывающее окно.Есть идеи?

1 Ответ

0 голосов
/ 25 июня 2019

У меня возникла та же проблема, и я не думаю, что вы можете сделать это с shinyalert из-за необходимости useShinyAlert() - добавление дополнительных зависимостей в документы Rmd, похоже, не очень хорошо поддерживается.

Обходной путь должен использовать sendSweetAlert из пакета shinyWidgets: 

---
title: "Test"
output: flexdashboard::flex_dashboard
runtime: shiny
---

```{r global, include= FALSE}
library(shinyWidgets)
```


```{r}
  actionButton("helpBtn", "Help")
```


```{r}
  observeEvent(input$helpBtn, {
  sendSweetAlert(session, title = "Help Me!", text = "Please contact your instructor")})

```
...