R Shiny应用CheckboxInput控制图表切换问题求助

Got it, let's fix this so your checkbox toggles between the bar chart and line chart properly. The issue right now is that you're not conditionally rendering a single output based on the checkbox state—instead, you probably have both charts being shown/hidden together. Here's how to adjust your code:

First, we'll add the checkbox to your UI, then create a single plot output that switches between the two graphs depending on whether the checkbox is checked.

Here's the complete working code:

library(shiny)
library(plotly)

# Data and graph functions
x1 <- as.Date(c("2017-01-01", "2017-02-01", "2017-03-01", "2017-04-01", "2017-05-01", "2017-06-01"))
y1 <- c(1,2,3,4,5,6)

# Bar graph function
graph1 <- function(){
  plot_ly(x = x1, y = y1, type = 'bar')
}

# Line graph function
graph2 <- function(){
  plot_ly(x = x1, y = y1, type = 'scatter', mode = 'lines')
}

ui <- fluidPage(
  titlePanel("Chart Toggle Demo"),
  # Add the checkbox input to control chart type
  checkboxInput(inputId = "show_bar", label = "Show Bar Chart", value = FALSE),
  # Single plot output to display either chart
  plotlyOutput(outputId = "dynamic_chart")
)

server <- function(input, output) {
  # Conditionally render the chart based on checkbox state
  output$dynamic_chart <- renderPlotly({
    if(input$show_bar){
      graph1() # Show bar chart when checkbox is checked
    } else {
      graph2() # Show line chart when checkbox is unchecked
    }
  })
}

# Run the shiny app
shinyApp(ui = ui, server = server)

Let me break down the key changes:

• Added checkboxInput to the UI with a unique ID (show_bar) so we can track the user's selection.
• Created one plotlyOutput container (dynamic_chart) instead of separate outputs for each graph—this is where the active chart will appear.
• In the server, the renderPlotly function checks the checkbox's state every time it changes: if checked, it renders the bar graph; if not, it switches to the line graph.

This setup ensures the chart updates instantly as you toggle the checkbox, exactly the behavior you're looking for!

内容的提问来源于stack exchange，提问作者Nick