Función en R para generar control deslizante dos manijas

crearSlider <- function(id_base, min_val, max_val, start = NULL, end = NULL) {
  start <- start %||% (max_val - 1)
  end <- end %||% max_val

  tags$div(class="estilo_contenedor_slider",
    
    tags$div(id = glue("{id_base}-track"),class="estilo_track"),
    
    tags$div(id = glue("{id_base}-range"),class="estilo_range"),
    
    tags$input(id = glue("{id_base}Min"), type = "range", min = min_val, max = max_val, value = start,
               class = "range-slider"),
    
    tags$input(id = glue("{id_base}Max"), type = "range", min = min_val, max = max_val, value = end,
               class = "range-slider"),
    
    tags$div(min_val, class = 'handle-label-izq', id = glue('{id_base}labelMin')),
    tags$div(max_val, class = 'handle-label-der', id = glue('{id_base}labelMax'))
  )
  
}

Implementación de control deslizante

tags$div(
  class = "grid-container1",
  tags$div(
    class = "grafico-container1",
    tags$label("Aquí va el gráfico"),
    highchartOutput("plot")
  ),
  tags$div(
    class = "controles-container1",
    tags$label("Aquí van los controles"),
    crearSlider("slider_pruea",2020,2025,2024,2025)
  )
)
2020
2025