Rmd Flexdashboard中的ShinyAlert

Question

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

下面是我的代码：

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

```{r global, include= FALSE}

库(Shinyalert)

```{r}

useShinyalert( )

actionButton("helpBtn"，"Help")

```{r}

observeEvent(输入$helpBtn，{

shinyalert(title =“救命！”，text =“请联系您的讲师”)})

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

Answer 1

我也遇到过同样的问题，我不认为你可以用shinyalert做到这一点，因为需要useShinyAlert() --在Rmd文档中添加额外的依赖项似乎不是很受支持。

一种解决方法是使用shinyWidgets软件包中的sendSweetAlert：

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

```{r global, include= FALSE}

库(ShinyWidgets)

```{r}

actionButton("helpBtn"，"Help")

```{r}

observeEvent(输入$helpBtn，{

sendSweetAlert(会话，标题=“救命！”，text =“请联系您的讲师”)})

Answer 2

不确定您的问题是否已解决，但是将useShinyalert中的rmd参数设置为TRUE应该可以解决您的问题。

useShinyalert(rmd = TRUE)