R光沢のあるsliderInput限定された範囲

Question

私の光沢のあるsliderInput私はより大きな最大値を持つ与えられたスライダーの入力の範囲を制限したいと思う。 たとえば、入力が区間[1:10]になければならないとします。

もちろん、sliderInputオプションでmin = 1、max = 10を定義できましたが、この間隔の値を持つスライダのみを取得します。

私の目標は、値が[1:50]のスライダーを表示することですが、ユーザーはこのスライダーを[1:10]間隔でのみ移動できます。これは私のアプリをさらに良くするでしょう。 これは可能ですか？

Answer 1

スライダー1が50

rm(list = ls()) 
library(shiny) 

slider1limit <- 80 
slider2limit <- 50 

ui <-pageWithSidebar(

    # Application title 
    headerPanel("Sliders should sum to 100!"), 
    # Sidebar with sliders whos sum should be constrained to be 100 
    sidebarPanel(
    sliderInput("slider1", "Slider 1: ", min = 0, max = 100, value = 0, step=1), 
    uiOutput("slider")), 

    # Create table output 
    mainPanel(tableOutput("restable")) 
) 

server <- function(input, output,session) { 

    observeEvent(input$slider2,{ 
    values <- min((100 - input$slider2),slider1limit) 
    updateSliderInput(session, "slider1", min =0,max=100, value = values) 
    }) 
    output$slider <- renderUI({ 
    values <- min((100 - input$slider1),slider2limit) 
    sliderInput("slider2", "Slider 2: ", min=0,max=100, value = values) 
    }) 

    output$restable <- renderTable({ 
    myvals<- c(input$slider1, input$slider2, 100-input$slider1-input$slider2) 
    data.frame(Names=c("Slider 1", "Slider 2", "Slider 3"),Values=myvals) 
    }) 
} 
runApp(list(ui = ui, server = server))