我正在尝试使用sliderInput
. 感谢 Dean Atali 的回答(对数刻度上的闪亮滑块),我能够创建滑块。
不过,我需要建立在滑块server
,并通过它传递给UIrenderUI
和uiOutput
。但是,当我在服务器端sliderInput
进行renderUI
呼叫时,它不再起作用。这里有两个示例:第一个显示分类滑块的工作原理(不使用renderUI
/ 时uiOutput
),第二个显示分类滑块的不起作用(使用renderUI
/ 时uiOutput
)。
工作示例(在 UI 中创建的滑块)
library(shiny)
JScode <-
"$(function() {
setTimeout(function(){
var names = ['Unrated', 'Emerging', ' ', 'Formative', ' ', ' ', 'Developed', ' '];
var vals = [];
for (i = 0; i < names.length; i++) {
var val = names[i];
vals.push(val);
}
$('#pvalue').data('ionRangeSlider').update({'values':vals})
}, 7)})"
runApp(shinyApp(
ui = fluidPage(
tags$head(tags$script(HTML(JScode))),
textOutput('texty'),
sliderInput("pvalue",
"PValue:", …
Run Code Online (Sandbox Code Playgroud)