Introduced by #1539, note how this example shows two blue scatterplots when the first should be a red bar chart ```r library(shiny) library(plotly) ui <- fluidPage( plotlyOutput("p1"), plotlyOutput("p2") ) server <- function(input, output, session) { output$p1 <- renderPlotly({ plot_ly(x = 1:10, color = I("red")) }) output$p2 <- renderPlotly({ plot_ly(x = 1:10, y = 1:10) }) } shinyApp(ui, server) ```