R glänzend Plots basierend auf Radio-Buttons und Slider Eingang

Question

zu diesem Beitrag Basierend: create plots based on radio button selection R Shiny

Ich möchte einen anderen Plot Ausgang je nachdem, welche Funkoption der Benutzer auswählt und stellen Sie die Anzahl der Ausschüsse den Slider-Eingang.

Der Schieberegler funktioniert nicht und ich weiß nicht, wie ich das Problem lösen kann. Vielen Dank für die Hilfe!

Hier ist mein 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) 

Answer 1

Dort am Ende dieser Zeile nicht nötig Komma ist:

sliderInput(inputId = "commit", min=1, max = 25, value = 2), 

sein sollte:

sliderInput(inputId = "commit", min=1, max = 25, value = 2) 

Answer 2

Stellen Sie sicher, hinzufügen lable zu Ihrem sliderinput auch:

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)