在R闪亮:让情节消失[重复]

omqzjyyz  于 2023-04-27  发布在  其他
关注(0)|答案(1)|浏览(87)

此问题已在此处有答案

plotly won't disappear + (action Button) shiny(2个答案)
12小时前关闭。
这似乎是一个简单的任务,但我找不到解决方案。我希望情节只出现在我选择“情节”时。否则,它将完全消失(没有白色,“你好”应上移)。

library(shiny)
ui <- fluidPage(theme = shinythemes::shinytheme("darkly"),
  selectInput("select", "select", c("No plot", "Plot")),
  plotOutput("plot"),
  tags$h1("hello")
  
)

server <- function(input, output, session) {
  output$plot <- renderPlot({
      if (input$select == "No plot") {
        NULL
      } else {
        plot(1)
      }
    })
  }

shinyApp(ui, server)
pwuypxnk

pwuypxnk1#

我们可以使用conditionalPanel来实现:

library(shiny)
ui <- fluidPage(
  selectInput("select", "select", c("No plot", "Plot")),
  conditionalPanel(condition = "input.select == 'Plot'", plotOutput("plot")),
  tags$h1("hello")
)

server <- function(input, output, session) {
  output$plot <- renderPlot({
    plot(1)
  })
}

shinyApp(ui, server)

相关问题