Implementation of additional shiny inputs (no documentation)

2026-02-03 13:12:55 +00:00
parent 706f8158ef
commit 2f97e9538b
19 changed files with 1024 additions and 1 deletions
--- a/inst/js/betterDateInput.js
+++ b/inst/js/betterDateInput.js
@@ -0,0 +1,163 @@
+var dateInputBinding = new Shiny.InputBinding();
+$.extend(dateInputBinding, {
+  _newDate: function(date) {
+    if (date instanceof Date)
+      return date;
+    var d = Date.parse(date);
+    if (isNaN(d))
+      return null;
+    return new Date(d);
+  },
+  _setMin: function(el, date) {
+    if (date == null) {
+      $(el).bsDatepicker('setStartDate', null);
+      return;
+    }
+    var parsedDate = this._newDate(date);
+    if (parsedDate === null)
+      return;
+    var curValue = $(el).bsDatepicker('getUTCDate');
+    $(el).bsDatepicker('setStartDate', this._utcDateAsLocal(parsedDate));
+    if (parsedDate && curValue && parsedDate.getTime() > curValue.getTime()) {
+      $(el).bsDatepicker('clearDates');
+    } else {
+      $(el).bsDatepicker('setUTCDate', curValue);
+    }
+  },
+  _setMax: function(el, date) {
+    if (date == null) {
+      $(el).bsDatepicker('setEndDate', null);
+      return;
+    }
+    var parsedDate = this._newDate(date);
+    if (parsedDate === null)
+      return;
+    var curValue = $(el).bsDatepicker('getUTCDate');
+    $(el).bsDatepicker('setEndDate', this._utcDateAsLocal(parsedDate));
+    if (parsedDate && curValue && parsedDate.getTime() < curValue.getTime()) {
+      $(el).bsDatepicker('clearDates');
+    } else {
+      $(el).bsDatepicker('setUTCDate', curValue);
+    }
+  },
+  _dateAsUTC: function(date) {
+    return new Date(date.getTime() - date.getTimezoneOffset() * 6e4);
+  },
+  _utcDateAsLocal: function(date) {
+    return new Date(date.getTime() + date.getTimezoneOffset() * 6e4);
+  },
+  _padZeros: function(n, digits) {
+    var str = n.toString();
+    while (str.length < digits) {
+      str = "0" + str;
+    }
+    return str;
+  },
+  _formatDateUTC: function(date) {
+    if (date instanceof Date) {
+      return date.getUTCFullYear() + "-" + this._padZeros(date.getUTCMonth() + 1, 2) + "-" + this._padZeros(date.getUTCDate(), 2);
+    } else {
+      return null;
+    }
+  },
+
+
+  find: function(scope) {
+    return $(scope).find('.shiny-betterDate-input');
+  },
+  getId: function(el) {
+    return $(el).attr('id');
+  },
+  getValue: function(el) {
+    var $el = $(el);
+    var $input = $el.find('input').eq(0);
+
+    var value = null;
+    if ($input.data('date-multidate') == true) {
+      value = $input.bsDatepicker('getUTCDates');
+      if (value.length > 0) {
+        value = value.map(this._formatDateUTC.bind(this));
+      }
+    } else {
+      value = $input.bsDatepicker('getUTCDate');
+      value = this._formatDateUTC(value);
+    }
+
+    return value;
+  },
+  setValue: function(el, value) {
+    var $el = $(el);
+    var $input = $el.find('input').eq(0);
+
+    if (value !== void 0) {
+      if (value === null || (Array.isArray(value) && value.length == 0)) {
+        $input.val('').bsDatepicker('update');
+      } else {
+        if ($input.data('date-multidate') == true && Array.isArray(value) && value.length > 1) {
+          var newValues = value.map(this._newDate.bind(this));
+          $input.bsDatepicker('setUTCDates', newValues);
+        } else {
+          var newValue = this._newDate(value);
+          $input.bsDatepicker('setUTCDate', newValue);
+        }
+      }
+    }
+  },
+  subscribe: function(el, callback) {
+    $(el).on('change', function(event) {
+      callback();
+    });
+  },
+  unsubscribe: function(el) {
+    $(el).off('change');
+  },
+  getState: function(el) {
+    return {
+      value: this.getValue(el)
+    };
+  },
+  receiveMessage: function(el, data) {
+    var $el = $(el);
+    var $input = $el.find('input').eq(0);
+
+    if (data.hasOwnProperty('label')) {
+      $(el).find('label[for="' + el.id + 'Text"]').text(data.label);
+    }
+
+    if (data.hasOwnProperty('min')) {
+      this._setMin($input[0], data.min);
+    }
+
+    if (data.hasOwnProperty('max')) {
+      this._setMax($input[0], data.max);
+    }
+
+    if (data.hasOwnProperty('value')) {
+      this.setValue(el, data.value);
+    }
+
+    // if (data.hasOwnProperty('disabled')) {
+    // }
+
+    $el.trigger('change');
+  },
+  initialize: function initialize(el) {
+    var $el = $(el);
+    var $mainInput = $el.find('.input-betterDate').eq(0);
+    var $input = $el.find('input').eq(0)
+
+    $input.bsDatepicker();
+
+    var value = $mainInput.data('initial-date');
+    this.setValue(el, value);
+
+    this._setMin($input[0], $mainInput.data('min-date'));
+    this._setMax($input[0], $mainInput.data('max-date'));
+
+    $input.bsDatepicker().on('changeDate', function(event) {
+      $el.trigger('change');
+    })
+  }
+});
+
+Shiny.inputBindings.register(dateInputBinding, 'shinyExtra.dateInputBinding');