Question

我正在尝试合并Shinyjs :: onclick（）在我的闪亮应用程序中切换图片。由于某些原因-这行不通。

如果我使用常规的ObservEven和“ toggle”，一切都很好并且可以正常工作。这告诉我useShinyjs(rmd = TRUE)命令正在工作。

```{r}
actionButton("do", "TRANSFORM")
```

```{r}
    plotOutput("plot3")

    observeEvent(input$do, {
    toggle("plot3", anim = TRUE)
    })

    output$plot3 <- renderImage({

      filename <- normalizePath(file.path('./cover2.png'))

      list(src = filename)
    }, deleteFile = FALSE)
```

另一方面，如果我尝试使用而不是ObserveEvent：

onclick("do",  toggle("plot3"))

什么都没发生。我在互联网上阅读了许多示例，这些示例应该非常简单……或者不是？：）

注意：我将RMarkdown与runtime:shiny一起使用。

Answer 1

使用runtime: shiny_prerendered，此方法有效：

---
title: "Untitled"
author: "Stéphane Laurent"
date: "2 juillet 2019"
output: html_document
runtime: shiny_prerendered
---

```{r, include=FALSE}
library(shinyjs)
useShinyjs(rmd = TRUE)
```

```{r}
actionButton("do", "TRANSFORM")
plotOutput("plot3")
```

```{r, context = "server"}
onclick("do", toggle("plot3", anim = TRUE)) 

output$plot3 <- renderPlot({
  plot(0,0)
})
```

使用ShinyJS onlick命令切换图像

1 个答案: