setContinuousColorScale | R Documentation |
Tells which color scale to use when reference column is of type continuous.
setContinuousColorScale(id, continuousCsId)
id |
Output variable to read from (id which references the requested plot). |
continuousCsId |
One of the available color scale ids
( |
If a column is defined as the reference (for example by clicking on its header),
a color scale is associated to this column.
Available color scale ids are: Blues
, RdBu
, YlGnBu
, YlOrRd
, Reds
.
No return value, called from shiny applications for side effects.
if(interactive() && require(shiny)) {
library(shiny)
library(parallelPlot)
ui <- fluidPage(
selectInput(
"continuousCsSelect",
"Continuous Color Scale:",
choices = list(
"Viridis" = "Viridis", "Inferno" = "Inferno", "Magma" = "Magma",
"Plasma" = "Plasma", "Warm" = "Warm", "Cool" = "Cool", "Rainbow" ="Rainbow",
"CubehelixDefault" = "CubehelixDefault", "Blues" = "Blues",
"Greens" = "Greens", "Greys" = "Greys", "Oranges" = "Oranges",
"Purples" = "Purples", "Reds" = "Reds", "BuGn" = "BuGn", "BuPu" = "BuPu",
"GnBu" = "GnBu", "OrRd" = "OrRd", "PuBuGn" = "PuBuGn", "PuBu" = "PuBu",
"PuRd" = "PuRd", "RdBu" = "RdBu", "RdPu" = "RdPu", "YlGnBu" = "YlGnBu",
"YlGn" = "YlGn", "YlOrBr" = "YlOrBr", "YlOrRd" = "YlOrRd"
),
selected = "Viridis"
),
p("Selector controls used colors when reference column is of type continuous"),
parallelPlotOutput("parPlot")
)
server <- function(input, output, session) {
output$parPlot <- renderParallelPlot({
parallelPlot(iris, refColumnDim = "Sepal.Length")
})
observeEvent(input$continuousCsSelect, {
parallelPlot::setContinuousColorScale("parPlot", input$continuousCsSelect)
})
}
shinyApp(ui, server)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.