shiny에서 observeEvent를 사용하여 차트를 삭제하는 방법은 무엇입니까?

Question

나는 flexdashboard에 빛나는 런타임을 사용하고 있습니다.

I 버튼을 눌러 (input$updt)에 차트를 숨기 싶습니다, 나는이 시도했다 : 나는 그것을 숨기지 않습니다 버튼을 클릭 할 때, 그러나

--- 
title: "Students Data - College of Business" 
output: 
    flexdashboard::flex_dashboard: 
     orientation: columns 

runtime: shiny 
--- 
```{r setup, include=FALSE} 
library(flexdashboard) 
library(ggplot2) 
library(shinyjs) 
shinyjs::useShinyjs(rmd=TRUE) 
``` 

Column {data-width=650} 
----------------------------------------------------------------------- 

### Chart A 

```{r} 

actionButton('updt', 'Update chart') 
output$p1 <-renderPlot({ ggplot(diamonds, aes(carat, price)) + geom_point() }, height=800) 
plotOutput("p1") 

output$p2 <- renderPlot({ 
    ggplot(mtcars, aes(cyl, disp))+ geom_point() 
}) 

plotOutput("p2") 
observeEvent(input$updt, {hide("p1")}) 


``` 

을 p1

Answer 1

hide() 플롯을 포함하는 요소의 id이 필요하지만 renderPlot은 outputId을 outputArgs에 설정할 수 없습니다. observeEventHandler 오류 : 나는이 오류`경고를 얻고있다

library(shinyjs) 
shinyjs::useShinyjs(rmd=TRUE) 
actionButton('updt', 'Update chart') 

output$p1 <- renderPlot({load('p1.RDA') p1}, height=800) 
plotOutput("p1") 
output$p2 <- renderPlot(expr={ [...code to recalculate p2] }) 
plotOutput("p2") 
observeEvent(input$updt, {hide("p1")})