r - Rmd Flexdashboard 中的 ShinyAlert

Question

我正在尝试在 Rmd flexdashboard 中呈现弹出窗口。

这是我的代码:

---
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")})

```

该按钮出现，但单击时不显示弹出窗口。有什么想法吗？

Answer 1

我一直有同样的问题，我不认为你可以用 shinyalert 来做到这一点，因为需要 useShinyAlert() - 添加额外的依赖进入 Rmd 文档似乎没有得到很好的支持。

解决方法是使用 shinyWidgets 包中的 sendSweetAlert:

---
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")})

```