Closed
Description
Introduced by #1539, note how this example shows two blue scatterplots when the first should be a red bar chart
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)