if(interactive() && require(shiny)) {
library(shiny)
library(scatterPlotMatrix)
ui <- fluidPage(
fluidRow(
column(
2,
selectInput("zAxisSelect", "Z Axis:", colnames(iris))
),
column(
2,
checkboxInput("zAxisUsedCB", "Use Z Axis", FALSE)
)
),
scatterPlotMatrixOutput("spMatrix")
)
server <- function(input, output, session) {
output$spMatrix <- renderScatterPlotMatrix({
scatterPlotMatrix(iris)
})
observe({
scatterPlotMatrix::setZAxis(
"spMatrix",
if (input$zAxisUsedCB) input$zAxisSelect else NULL
)
})
}
shinyApp(ui, server)
}
Run the code above in your browser using DataLab