if(interactive() && require(shiny)) {
library(shiny)
library(scatterPlotMatrix)
ui <- fluidPage(
selectInput(
"categoricalCsSelect",
"Categorical Color Scale:",
choices = list(
"Category10" = "Category10", "Accent" = "Accent", "Dark2" = "Dark2",
"Paired" = "Paired", "Set1" = "Set1"
),
selected = "Category10"
),
p("Selector controls used colors when reference column is of type categorical"),
scatterPlotMatrixOutput("spMatrix")
)
server <- function(input, output, session) {
output$spMatrix <- renderScatterPlotMatrix({
scatterPlotMatrix(iris, zAxisDim = "Species")
})
observeEvent(input$categoricalCsSelect, {
scatterPlotMatrix::setCategoricalColorScale("spMatrix", input$categoricalCsSelect)
})
}
shinyApp(ui, server)
}
Run the code above in your browser using DataLab