Javascript 如何从Shiny中的自定义离子范围滑块获取当前值？

目的：我需要一种将自定义标签（0,0.33,0.66,1）添加到闪亮滑块的方法。我从以下帖子中修改了代码：

问题：如何将当前滑块值传递到有光泽的对象中？我试图用此帖子修改我的代码，但未成功：

请注意，我对Javascript非常陌生，我的代码不能包含任何附加包

用户界面

服务器

# server    
x <- c(0,0.33,0.66,1) # slider values

# function to create slider
sliderValues <- function (inputId, values){

  sliderTag <- tags$div(
    do.call(tags$input, list(type = "single",
                             id = "inputId",
                             value = x)),
  tags$script(
    HTML('$("#mySlider").ionRangeSlider({
         grid: true,
         values: [0,0.33,0.66,1]});'))
    )

  dep <- htmltools::htmlDependency(
    "ionrangeslider",
    "2.1.12",
    c(href = "shared/ionrangeslider"),
    script = "js/ion.rangeSlider.min.js",
    stylesheet = c(
      "css/ion.rangeSlider.css",
      "css/ion.rangeSlider.skinShiny.css"
    ))
  htmltools::attachDependencies(sliderTag, dep)
}

server <- function(input, output, session) {

  output$mySlider <- renderUI({
    sliderValues(inputId = "mySlider",
                 values = x)
  })

  output$myValue <- renderPrint({
    print(as.numeric(unlist(input$mySlider)))
  })
}

#服务器
x
# server    
x <- c(0,0.33,0.66,1) # slider values

# function to create slider
sliderValues <- function (inputId, values){

  sliderTag <- tags$div(
    do.call(tags$input, list(type = "single",
                             id = "inputId",
                             value = x)),
  tags$script(
    HTML('$("#mySlider").ionRangeSlider({
         grid: true,
         values: [0,0.33,0.66,1]});'))
    )

  dep <- htmltools::htmlDependency(
    "ionrangeslider",
    "2.1.12",
    c(href = "shared/ionrangeslider"),
    script = "js/ion.rangeSlider.min.js",
    stylesheet = c(
      "css/ion.rangeSlider.css",
      "css/ion.rangeSlider.skinShiny.css"
    ))
  htmltools::attachDependencies(sliderTag, dep)
}

server <- function(input, output, session) {

  output$mySlider <- renderUI({
    sliderValues(inputId = "mySlider",
                 values = x)
  })

  output$myValue <- renderPrint({
    print(as.numeric(unlist(input$mySlider)))
  })
}