Löschen von Ausgabediagrammen in glänzendem

Question

Ich versuche, Ausgabediagramme in glänzendem zu initialisieren, wenn die Schaltfläche geklickt wird, was bedeutet, dass Ausgabediagramme vom Bildschirm gelöscht werden, wenn die Schaltfläche gedrückt wird, aber ich kenne den genauen Befehl dafür nicht. Ich habe versucht, etwas wie:

observedEvent(input$button, { output$plot1 <- NULL }) 

aber es funktioniert nicht. Hoffe, dass Sie helfen können,

Dank

Answer 1

Statt den Plot zu löschen, können Sie entweder show oder hide es mit shinyjs

rm(list=ls()) 
library(shiny) 
library(shinyjs) 

ui <- fluidPage(
    useShinyjs(), 
    sidebarPanel(actionButton("button", "Hide Plot1"), 
       actionButton("button2", "Show Plot1"),br(), 
       actionButton("button3", "Hide Plot2"), 
       actionButton("button4", "Show Plot2")), 
    mainPanel(plotOutput("plot1"),plotOutput("plot2")) 
) 

server <- function(input, output, session) { 
    observeEvent(input$button, { 
    hide("plot1") 
    }) 
    observeEvent(input$button2, { 
    show("plot1") 
    }) 
    observeEvent(input$button3, { 
    hide("plot2") 
    }) 
    observeEvent(input$button4, { 
    show("plot2") 
    }) 

    output$plot1 <- renderPlot({ 
    hist(mtcars$mpg) 
    }) 
    output$plot2 <- renderPlot({ 
    hist(mtcars$qsec) 
    }) 

} 
shinyApp(ui, server)