闪亮的自定义滑块

Question

I'm really frustrated by the limited sliders shiny currently provides. I would like to have a slider that:

1. Has both an inputvalue and a slidervalue that correspond, like the sliders from angularjs : bottom of this link and here
2. Doesn't refresh the entire every millisecond I try to find to right value. I want it to be reactive, but not 25 times when I'm looking for the right value.

Any help is much appreciated.

Edit: Managed to get the AngularJS slider working after the hint below and quite some tries. Please find the repo here . I although don't manage to get the data back into R. You should do that with the Shiny.onInputChange function. I tried it like this:

        <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>

and of course played with the app object name but the slider just keeps failing.

Answer 1

dreamR的家伙发布了一个可以解决许多缺少的小部件的软件包： https : //github.com/dreamRs/shinyWidgets