多个滑块的闪亮名称

Question

I have a big and complex code.

I have created a uiOutput("sliders") in the ui in order to have some sliders (depending on the number of columns of a dataset I am able to upload). In the server I have the following code:

output$sliders <- renderUI({
    pvars <- file_col()/2-1
    myList<-list()
    lapply(seq(pvars), function(i) {
    
        sliderInput(inputId = paste0("Shiftindex", i),label = ("Shift index")
                    ,min = 0, max = 1,value= 0,step = 0.1)
    }
    )

  })

I want to use the value of each sliderInput again in the server in order to compute something else. My question is how I can put names in the sliders in order to be able to use their values in the server again and how I have to call them??

Answer 1

You can access their values on the server side with input[[paste0("Shiftindex", 1)]] for example.

You could do something like the following:

output$text <- renderText({
  pvars <- file_col()/2-1   
  slider_inputs <- paste0("Shiftindex", seq(pvars))   
  values <- purrr::map_dbl(slider_inputs, function(x) input[[x]])   
  paste(values, collapse = ", ") 
})

Just let me know if you need extra help :)