【发布时间】：2016-12-22 08:08:55
【问题描述】：
我对 shiny 目前提供的有限滑块感到非常沮丧。我想要一个滑块：
- 具有对应的输入值和滑块值，例如
angularjs中的滑块：this link 和 here 的底部 - 不刷新整个我试图找到正确值的每一毫秒。我希望它是被动的，但不是 25 次，因为我正在寻找正确的价值。
非常感谢任何帮助。
编辑：
在下面的提示和相当多的尝试之后，设法让 AngularJS 滑块工作。请找到回购here。我虽然没有设法将数据恢复到 R 中。你应该使用 Shiny.onInputChange 函数来做到这一点。我试过这样：
<script language='JavaScript'>
var app = angular.module('rzSliderDemo', ['rzModule', 'ui.bootstrap']);
Shiny.onInputChange("Robject", app);
app.controller('MainCtrl', function ($scope, $rootScope, $timeout, $modal) {
//Minimal slider config
$scope.minSlider = {
value: 10
};
});
</script>
当然也可以使用 app 对象名称，但滑块总是失败。
【问题讨论】：
-
1.当前滑块不是已经显示了滑动切换上的值吗？ shiny.rstudio.com/articles/sliders.html 2. 你想让shiny知道什么时候刷新？您始终可以添加一个仅在单击时才运行计算的按钮。或者，您可以添加绑定到 mouseout 事件的 javascript，然后当您的光标离开滑块时将输入值发送到闪亮
-
@waterling 是的，但我不仅想展示它，我还希望能够使用
numericInput之类的输入来更改它。就像您在angularjs示例中看到的那样。 2. 我不想要按钮，但你描述的javascript听起来很完美。我会对此进行调查。 -
感谢@s.brunel 的工作。现在我和那个帖子的评论者有同样的问题，要在 R 中取回值！请找到我编辑的答案。