Question

我试图在点击按钮时初始化闪亮的输出图，这意味着当按下按钮时输出图将从屏幕上删除，但我不知道确切的命令。我试过像：

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

但它不起作用。希望你能提供帮助，

谢谢

Answer 1

您可以show或hide 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)

删除闪亮的输出图

1 个答案: