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

```

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

标签： rshinyflexdashboard

Answer 1

我一直有同样的问题，我认为你不能这样做，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")})

```