0byt3m1n1
Path:
C:
/
Program Files
/
R
/
R-4.2.2
/
library
/
shinyWidgets
/
examples
/
shinyWidgets
/
[
Home
]
File: code_dropdown.R
library("shiny") library("shinyWidgets") ui <- fluidPage( tags$h2("Dropdown Button"), br(), dropdown( tags$h3("List of Input"), pickerInput(inputId = 'xcol2', label = 'X Variable', choices = names(iris), options = list(`style` = "btn-info")), pickerInput(inputId = 'ycol2', label = 'Y Variable', choices = names(iris), selected = names(iris)[[2]], options = list(`style` = "btn-warning")), sliderInput(inputId = 'clusters2', label = 'Cluster count', value = 3, min = 1, max = 9), style = "unite", icon = icon("gear"), status = "danger", width = "300px", animate = animateOptions( enter = animations$fading_entrances$fadeInLeftBig, exit = animations$fading_exits$fadeOutRightBig ) ), plotOutput(outputId = 'plot2') ) server <- function(input, output, session) { selectedData2 <- reactive({ iris[, c(input$xcol2, input$ycol2)] }) clusters2 <- reactive({ kmeans(selectedData2(), input$clusters2) }) output$plot2 <- renderPlot({ palette(c("#E41A1C", "#377EB8", "#4DAF4A", "#984EA3", "#FF7F00", "#FFFF33", "#A65628", "#F781BF", "#999999")) par(mar = c(5.1, 4.1, 0, 1)) plot(selectedData2(), col = clusters2()$cluster, pch = 20, cex = 3) points(clusters2()$centers, pch = 4, cex = 4, lwd = 4) }) } shinyApp(ui = ui, server = server)