Interaktive / Reaktive änderung der min - / max-Werte sliderInput

Habe ich gefunden einige Informationen darüber, wie die value einer sliderInput mit einem reaktiven Ausdruck innerhalb der siderbarPanel. Aber anstatt die value würde ich gerne ändern min und max des Schiebers mit einem numericInput. In diese Skript für server.R er sagt, dass nur label und value geändert werden können, für Schieberegler. Gibt es irgendeine andere Möglichkeit die min/max-Werte sliderInput mit einem reaktiven Ausdruck?

Hier ist eine exmple:

ui.R:

shinyUI(pageWithSidebar(

  #Sidebar with controls to select the variable to plot
  sidebarPanel(


 #Numeric Inputs
    numericInput("min_val", "Enter Minimum Value", 1993),

    numericInput("max_val", "Enter Maximum Value", 2013),



#Slider 
    sliderInput("inSlider", "Slider", 
                min=1993, max=2013, value=2000),

# Now I would like to change min and max from sliderInput by changing the numericInput.

mainPanel()
))

server.R:

library(shiny)

shinyServer(function(input, output, session) {

reactive({

x<-input$min_val

y<-input$max_val


updateSliderInput(session, "inSlider", min=x, max=y, value=x)

})
InformationsquelleAutor viktor_r | 2013-09-09
  1. 12

    Ich denke, das erreicht man am besten mit glänzenden dynamische UI-Funktionen über renderUI() und uiOutput(). Probieren Sie das folgende Beispiel:

    ui.R

    library(shiny)

shinyUI(pageWithSidebar(
  headerPanel("Test Shiny App"),

  sidebarPanel(
    #Numeric Inputs
    numericInput("min_val", "Enter Minimum Value", 1993),
    numericInput("max_val", "Enter Maximum Value", 2013),
    #display dynamic UI
    uiOutput("slider")
  ),

  mainPanel()
))

    server.R

    library(shiny)

shinyServer(function(input, output, session) {

  #make dynamic slider
  output$slider <- renderUI({
    sliderInput("inSlider", "Slider", min=input$min_val, max=input$max_val, value=2000)
  })

})
    • Danke @David , die regler arbeiten! Aber ich habe Probleme, um einen Ausgang mit dem Wert aus dem regler. Ich habe versucht input$slider, aber es scheint, dass slider nicht wieder alle Werte. Irgendwelche Ideen?
    • Gerade gemerkt, dass ich input$inSlider . Sorry für die Mühe.
    • Ich habe oft schreiben diese Weise uiOutput("outputSlider") und sliderInput("inputSlider", etc.) um zu vermeiden, die Verwirrung...
    • Ich denke, das ist jetzt abgeschrieben.
    InformationsquelleAutor David
Schreibe einen Kommentar