if(interactive() && require(shiny)) {
library(shiny)
library(parallelPlot)
ui <- fluidPage(
selectInput(
"arrangeMethodSelect",
"Arrange Method:",
choices = list(
"fromLeft" = "fromLeft", "fromRight" = "fromRight",
"fromBoth" = "fromBoth", "fromNone" = "fromNone"
),
selected = "fromRight"
),
p("Selector controls the method used to arrange lines position in category boxes"),
parallelPlotOutput("parPlot")
)
server <- function(input, output, session) {
output$parPlot <- renderParallelPlot({
categorical <-
list(cyl = c(4, 6, 8), vs = c(0, 1), am = c(0, 1), gear = 3:5, carb = 1:8)
parallelPlot(mtcars, categorical = categorical, refColumnDim = "cyl")
})
observeEvent(input$arrangeMethodSelect, {
parallelPlot::setArrangeMethod("parPlot", input$arrangeMethodSelect)
})
}
shinyApp(ui, server)
}
Run the code above in your browser using DataLab