Split up shiny.js

2026-02-06 04:35:13 -05:00 · 2015-03-23 13:57:45 -05:00
parent b7fe3ed745
commit ceb428b8bd
38 changed files with 4449 additions and 255 deletions
--- a/srcjs/output_binding_datatable.js
+++ b/srcjs/output_binding_datatable.js
@@ -0,0 +1,86 @@
+  var datatableOutputBinding = new OutputBinding();
+  $.extend(datatableOutputBinding, {
+    find: function(scope) {
+      return $(scope).find('.shiny-datatable-output');
+    },
+    onValueError: function(el, err) {
+      exports.unbindAll(el);
+      this.renderError(el, err);
+    },
+    renderValue: function(el, data) {
+      var $el = $(el).empty();
+      if (!data || !data.colnames) return;
+
+      var colnames = $.makeArray(data.colnames);
+      var header = $.map(colnames, function(x) {
+        return '<th>' + x + '</th>';
+      }).join('');
+      header = '<thead><tr>' + header + '</tr></thead>';
+      var footer = '';
+      if (data.options === null || data.options.searching !== false) {
+        footer = $.map(colnames, function(x) {
+          // placeholder needs to be escaped (and HTML tags are stripped off)
+          return '<th><input type="text" placeholder="' +
+                 escapeHTML(x.replace(/(<([^>]+)>)/ig, '')) +
+                 '" /></th>';
+        }).join('');
+        footer = '<tfoot>' + footer + '</tfoot>';
+      }
+      var content = '<table class="table table-striped table-hover">' +
+                    header + footer + '</table>';
+      $el.append(content);
+
+      // options that should be eval()ed
+      if (data.evalOptions)
+        $.each(data.evalOptions, function(i, x) {
+          /*jshint evil: true */
+          data.options[x] = eval('(' + data.options[x] + ')');
+        });
+
+      // caseInsensitive searching? default true
+      var searchCI = data.options === null || typeof(data.options.search) === 'undefined' ||
+                     data.options.search.caseInsensitive !== false;
+      var oTable = $(el).children("table").DataTable($.extend({
+        "processing": true,
+        "serverSide": true,
+        "order": [],
+        "orderClasses": false,
+        "pageLength": 25,
+        "ajax": {
+          "url": data.action,
+          "type": "POST",
+          "data": function(d) {
+            d.search.caseInsensitive = searchCI;
+            d.escape = data.escape;
+          }
+        }
+      }, data.options));
+      // the table object may need post-processing
+      if (typeof data.callback === 'string') {
+        /*jshint evil: true */
+        var callback = eval('(' + data.callback + ')');
+        if (typeof callback === 'function') callback(oTable);
+      }
+
+      // use debouncing for searching boxes
+      $el.find('label input').first().unbind('keyup')
+           .keyup(debounce(data.searchDelay, function() {
+              oTable.search(this.value).draw();
+            }));
+      var searchInputs = $el.find("tfoot input");
+      if (searchInputs.length > 0) {
+        // this is a little weird: aoColumns/bSearchable are still in DT 1.10
+        // https://github.com/DataTables/DataTables/issues/388
+        $.each(oTable.settings()[0].aoColumns, function(i, x) {
+          // hide the text box if not searchable
+          if (!x.bSearchable) searchInputs.eq(i).hide();
+        });
+        searchInputs.keyup(debounce(data.searchDelay, function() {
+          oTable.column(searchInputs.index(this)).search(this.value).draw();
+        }));
+      }
+      // FIXME: ugly scrollbars in tab panels b/c Bootstrap uses 'visible: auto'
+      $el.parents('.tab-content').css('overflow', 'visible');
+    }
+  });
+  outputBindings.register(datatableOutputBinding, 'shiny.datatableOutput');