如何在Shiny中更改C3仪表上的间隔颜色

install.packages("shiny")
install.packages("shinymaterial")

library(shiny)
library(shinymaterial)

ui <- material_page(
  title = "Change Interval Colors in Shiny with C3",
  sidebar = material_sidebar(
    material_slider(
      inputId = "interval",
      label = "Interval",
      min = 0,
      max = 100,
      value = 50
    )
  ),
  content = material_card(
    title = "C3 Chart",
    material_c3(
      outputId = "chart",
      data = list(
        columns = list(
          c("data1", 30, 200, 100, 400, 150, 250),
          c("data2", 50, 20, 10, 40, 15, 25)
        ),
        type = "bar"
      ),
      color = list(
        pattern = list(
          c("#FF0000", "#00FF00", "#0000FF")
        )
      )
    )
  )
)

server <- function(input, output) {
  observeEvent(input$interval, {
    interval <- input$interval
    
    # 根据间隔值更新C3仪表的间隔颜色
    colors <- list(
      pattern = list(
        c("#FF0000", "#00FF00", "#0000FF")
      )
    )
    
    if (interval < 25) {
      colors$pattern <- list(c("#FF0000", "#FF0000", "#FF0000"))
    } else if (interval < 50) {
      colors$pattern <- list(c("#00FF00", "#00FF00", "#00FF00"))
    } else if (interval < 75) {
      colors$pattern <- list(c("#0000FF", "#0000FF", "#0000FF"))
    }
    
    update_material_c3(session, "chart", color = colors)
  })
}

# 运行Shiny应用程序
shinyApp(ui, server)