Как использовать числовой ввод в другом интерфейсе выбора выбора?

Question

В блестящем, мне нужно выбрать числовой диапазон и использовать его как выбор в другом pickerInput.

Сначала у меня есть:

               sliderTextInput(
                inputId = "size.range",
                label = "Choose a value:", 
                choices = c(1:100),
                selected =c(18,24),
                grid = TRUE )

и после того, как у меня есть:

                      pickerInput(
                       inputId = "sample.histoall",
                       label = "Selected Size",
                       choices = list( XXXXXX ),
                       options = list(`actions-box` = TRUE),
                       multiple = TRUE)

чем я заменяю XXXXXX?

Answer 1

Вы можете наблюдать значения вашего числового диапазона и обновлять pickerInput при каждом изменении. Вы можете выбрать отображение двух возвращенных значений или диапазона между возвращенными значениями в pickerInput. Я добавил обе опции в примере ниже.

library(shiny)
library(shinyWidgets)

ui <- fluidPage(
  sliderTextInput(
    inputId = "size.range",
    label = "Choose a value:", 
    choices = c(1:100),
    selected =c(18,24),
    grid = TRUE ),
  pickerInput(
    inputId = "sample.histoall",
    label = "Selected Size",
    choices = list( '' ),
    options = list(`actions-box` = TRUE),
    multiple = TRUE),
  pickerInput(
    inputId = "sample.histoall.range",
    label = "Selected Size",
    choices = list( '' ),
    options = list(`actions-box` = TRUE),
    multiple = TRUE)
)

server <- function(input, output, session) {
  observe({
    updatePickerInput(session, 'sample.histoall', choices=input$size.range)
    updatePickerInput(session, 'sample.histoall.range', choices=as.numeric(input$size.range[1]):as.numeric(input$size.range[2]))
  })
}

shinyApp(ui, server)