Как получить текущее значение из пользовательского слайдера ионного диапазона в Shiny?
Цель: мне нужен был способ добавить пользовательские метки (0, 0.33, 0.66, 1) на слайдер Shiny. Я изменил код из следующего поста: R Блестящая анимация ползунка по месяцам (в настоящее время по дням)
Вопрос: Как я могу передать текущее значение слайдера в блестящий объект? Я пытался изменить свой код с помощью этого поста, но безуспешно: http://ionden.com/a/plugins/ion.rangeslider/demo_interactions.html
Обратите внимание, что я очень плохо знаком с Javascript, и мой код не может содержать никаких дополнительных пакетов.
щ
# ui
library(shiny)
shinyUI(fluidPage(
br(),
uiOutput("mySlider"),
verbatimTextOutput("myValue"))
)
сервер
# 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)))
})
}