Get Values from Sliders & Select Inputs Created by Taglist

[michaelgloven]

I'm able to create multiple sliders and selections dynamically (data driven) in Shiny UI but don't know how to retrieve resulting user selected values. My objective is to use the selected values in other functions.

Does someone know the syntax to retrieve these values? Here's an example for the sliders:
library(shiny)

ui <- fluidPage(
uiOutput("sliders"),
tableOutput("values")
)

server <- function(input, output) {
output$sliders <- renderUI({
c <- c("A", "B", "C")
min <- c(10,100,1000)
max <- c(50,500,5000)
sliders <- lapply(1:length(c), function(i) {
inputName <- c[i]
min <- min[i]
max <- max[i]
sliderInput(inputName, inputName, min=min, max=max, value=0)
})
do.call(tagList, sliders)
})

# don't know how to retrieve slider values??
output$values <- renderTable({
    d <- data.frame(input$inputName)
})

}

shinyApp(ui = ui, server = server)

[nirgrahamuk]

Away from my computer so haven't run it but I would guess.

input$A
input$B
input$C

[michaelgloven]

Your idea works when I explicitly type input$A, but you can see I need to build input$A dynamically since A is only known when a dataframe of new variables is brought in. So maybe my issue is how do I construct 'input$A' dynamically so the server recognizes this is referring to the slider input values?

When I construct a value through paste my table simply returns the paste string and not the slider value. For example, if c below is a vector of values testA, testB, testC, I get a return vector of values which just have the words in input$testA, input$testB, input$testC. My expectation is to get the numerical values from the sliders like 50, 210, 1008 (as examples).

Maybe I am rendering the paste function incorrectly for this use case?

values <- paste0("input$", c, sep = '')

[nirgrahamuk]

Get data from uiOutput

I made this example for you. library(shiny) library(purrr) # for map library(glue) # for nice string interpolation ui <- fluidPage( numericInput("num_controls_choice", "Choose how many controls to make", value = 1, min = 0, max = 10), uiOutput("dynamic_controls"), verbatimTextOutput("view_dynamic_controls") ) server <- function(input, output, session) { output$dynamic_controls <- renderUI({ ncc <- req(input$num_controls_choice) map(seq_len(ncc), ~{ nm <- glue("control_{.}") sliderInput(inputId = nm , label = nm, min = 0, …

[michaelgloven]

Nice, I think this will work.

My approach was more brute force since I've only been working with shiny\R for a year, and I was thinking I was only one issue away from the answer. I'll try your suggestion even though several of the functions & syntax are foreign to me, and I'll need to get this to work for select inputs too.

Appreciate your quick response and ideas.

[michaelgloven]

working on it..........