[Bug]: range_input doesn't register value2

[hypebright]

Guidelines

• [X] I agree to follow this project's Contributing Guidelines.

Project Version

0.4.3.9000

Platform and OS Version

macOS Ventura 13.4.1

Existing Issues

No response

What happened?

Using range_input doesn't register the second selected value, only the first selected value is returned.

Steps to reproduce

Example used:

# Range example
ui <- shinyUI(
  semanticPage(
    title = "Range example",
    tags$br(),
    range_input("range", 10, 15, 0, 20),
    p("Selected values:"),
    textOutput("range")
  )
)

server <- shinyServer(function(input, output, session) {
  output$range <- renderText(paste(input$range, collapse = " - "))
})

shinyApp(ui = ui, server = server)

Output:

Expected behavior

Either input$range[[2]] should have a value, or input$range[[1]][2].

Attachments

No response

Screenshots or Videos

No response

Additional Information

No response

[hypebright]

Just realized #418 references the same, and #425 will close this.