Используйте блестящую команду onlick для переключения изображения - PullRequest
Новая
       18

Используйте блестящую команду onlick для переключения изображения

0 голосов
/ 02 июля 2019

Я пытаюсь включить блестящий :: onclick () для переключения изображения в моем блестящем приложении. По какой-то причине - это не работает.

Если я пользуюсь обычным наблюдением даже и "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.

1 Ответ

0 голосов
/ 02 июля 2019

Использование время выполнения: глянцевая_представленная , это работает: 

---
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)
})
```
...