R shiny plots based on radio buttons and slider input

Question

Based on this post: create plots based on radio button selection R Shiny

I want a different plot output depending on which radio option the user selects and adjust the numbers of committees using the slider input.

The slider input doesn't work and I don't realize how to solve the problem. Many thanks for the help!

Here is my code:

library(shiny)
library(Cubist)    
plotType <- function(x, type, committe) {
        switch(type,
               Cond = dotplot(finalModel, what = "splits"),
               Coeff = dotplot(finalModel, what = "coefs"))
    }
    ui <- shinyUI(fluidPage(
           sidebarLayout(
              sidebarPanel(
                radioButtons(inputId = "ptype", label = "Select the plot", choices = c("Cond", "Coeff")),
                sliderInput(inputId = "commit", min=1, max = 25, value = 2)
             ),
           mainPanel(
                plotOutput("plots"))
    )))

    server <- shinyServer(function(input, output) {
         output$plots <-renderPlot({
            plotType(finalModel, input$ptype, input$commit)

        })
    })


    shinyApp(ui = ui, server = server)

Pork Chop Pork Chop · Accepted Answer · 2017-05-17T09:14:48

Make sure to add lable to your sliderinput too:

library(shiny)
plotType <- function(x, type, committe) {
  switch(type,Cond = dotplot(finalModel, what = "splits"),Coeff = dotplot(finalModel, what = "coefs"))
}

ui <- shinyUI(fluidPage(
  sidebarLayout(
    sidebarPanel(
      radioButtons(inputId = "ptype", label = "Select the plot", choices = c("Cond", "Coeff")),
      sliderInput(inputId = "commit","",  min=1, max = 25, value = 2)
    ),
    mainPanel(
      plotOutput("plots"))
  )))

server <- shinyServer(function(input, output) {
  output$plots <- renderPlot({
    plotType(finalModel, input$ptype, input$commit)
  })
})


shinyApp(ui = ui, server = server)

R shiny plots based on radio buttons and slider input

2 Answers