R глянцевый слайдер ввода с ограниченным диапазоном

В моем R глянцевый sliderInput я хочу ограничить диапазон ввода данного слайдера с большим максимальным значением. Например, предположим, что вход должен быть в интервале [1:10].

Конечно, теперь я могу определить min = 1, max = 10 в параметрах sliderInput, но тогда я получу только слайдер со значениями в этом интервале.

Моя цель - увидеть ползунок со значениями (например) в [1:50], но пользователь может переместить этот ползунок только в интервале [1:10]. Это сделало бы мое приложение еще лучше. Это возможно?

Ответы на вопрос(1)

Решение Вопроса

вы можете использовать минимальные значения, здесь слайдер 1 ограничен до 80 макс, а слайдер 2 ограничен до 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))
 R_FF9214 июл. 2016 г., 16:26
Еще раз спасибо Теперь у меня есть все, что мне нужно, чтобы построить его так, как я хочу. Вы мне очень помогли сегодня

Ваш ответ на вопрос