From 8178c83231be6aaa8141b1ae78d7ba9d26c94992 Mon Sep 17 00:00:00 2001 From: erblast Date: Fri, 8 Dec 2023 07:23:21 +0000 Subject: [PATCH] =?UTF-8?q?Deploying=20to=20gh-pages=20from=20@=20erblast/?= =?UTF-8?q?parcats@43c3c3842762a757424739187b4b9d01c921b8b8=20=F0=9F=9A=80?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- 404.html | 4 +- LICENSE-text.html | 4 +- LICENSE.html | 5 +- articles/index.html | 4 +- articles/parcats.html | 54 +- .../htmlwidgets-1.6.4/htmlwidgets.js | 901 ++++++++++++++++++ .../parcats-binding-0.0.5/parcats.js | 152 +++ authors.html | 12 +- index.html | 17 +- news/index.html | 17 +- pkgdown.yml | 6 +- reference/index.html | 4 +- reference/parcats-shiny.html | 4 +- reference/parcats.html | 17 +- reference/parcats_demo.html | 4 +- reference/pipe.html | 4 +- 16 files changed, 1144 insertions(+), 65 deletions(-) create mode 100644 articles/parcats_files/htmlwidgets-1.6.4/htmlwidgets.js create mode 100644 articles/parcats_files/parcats-binding-0.0.5/parcats.js diff --git a/404.html b/404.html index dde078d..0cb656c 100644 --- a/404.html +++ b/404.html @@ -45,7 +45,7 @@ parcats - 0.0.4 + 0.0.5 @@ -110,7 +110,7 @@

Page not found (404)

-

Site built with pkgdown 2.0.5.

+

Site built with pkgdown 2.0.7.

diff --git a/LICENSE-text.html b/LICENSE-text.html index 8c0614f..53f4677 100644 --- a/LICENSE-text.html +++ b/LICENSE-text.html @@ -23,7 +23,7 @@ parcats - 0.0.4 + 0.0.5 @@ -80,7 +80,7 @@

License

-

Site built with pkgdown 2.0.5.

+

Site built with pkgdown 2.0.7.

diff --git a/LICENSE.html b/LICENSE.html index 08219b5..3c33ae9 100644 --- a/LICENSE.html +++ b/LICENSE.html @@ -23,7 +23,7 @@ parcats - 0.0.4 + 0.0.5 @@ -62,6 +62,7 @@

MIT License

+

Copyright (c) 2019 bjoern koneswarakantha

Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the “Software”), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions:

The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.

@@ -83,7 +84,7 @@

MIT License

-

Site built with pkgdown 2.0.5.

+

Site built with pkgdown 2.0.7.

diff --git a/articles/index.html b/articles/index.html index 1a6673f..23b0f2f 100644 --- a/articles/index.html +++ b/articles/index.html @@ -23,7 +23,7 @@ parcats - 0.0.4 + 0.0.5 @@ -77,7 +77,7 @@

All vignettes

-

Site built with pkgdown 2.0.5.

+

Site built with pkgdown 2.0.7.

diff --git a/articles/parcats.html b/articles/parcats.html index cd34931..1c9f3d3 100644 --- a/articles/parcats.html +++ b/articles/parcats.html @@ -46,7 +46,7 @@ parcats - 0.0.4 + 0.0.5 @@ -85,7 +85,7 @@ -
+

Live Widget

@@ -101,38 +101,56 @@

Live Widget

easyalluvial

-

parcats requires an alluvial plot created with easyalluvial to create an interactive parrallel categories diagram.

+

parcats requires an alluvial plot created with +easyalluvial to create an interactive parrallel categories +diagram.

Examples

Parcats from alluvial from data in wide format 

-p <- alluvial_wide(mtcars2, max_variables = 5)
-
-parcats(p, marginal_histograms = TRUE, data_input = mtcars2)
-
- +p <- alluvial_wide(mtcars2, max_variables = 5)
+
## Warning: There was 1 warning in `mutate()`.
+## ℹ In argument: `mpg = (function (f, na_level = "(Missing)") ...`.
+## Caused by warning:
+## ! `fct_explicit_na()` was deprecated in forcats 1.0.0.
+## ℹ Please use `fct_na_value_to_level()` instead.
+## ℹ The deprecated feature was likely used in the easyalluvial package.
+##   Please report the issue to the authors.
+
+parcats(p, marginal_histograms = TRUE, data_input = mtcars2)
+
+

Parcats from model response alluvial

-

Machine Learning models operate in a multidimensional space and their response is hard to visualise. Model response and partial dependency plots attempt to visualise ML models in a two dimensional space. Using alluvial plots or parrallel categories diagrams we can increase the number of dimensions.

+

Machine Learning models operate in a multidimensional space and their +response is hard to visualise. Model response and partial dependency +plots attempt to visualise ML models in a two dimensional space. Using +alluvial plots or parrallel categories diagrams we can increase the +number of dimensions.

-

Here we see the response of a random forest model if we vary the three variables with the highest importance while keeping all other features at their median/mode value.

-
+
Here we see the response of a random forest model if we vary the
+three variables with the highest importance while keeping all other
+features at their median/mode value.

+
 df <- select(mtcars2, -ids )
 m <- randomForest::randomForest( disp ~ ., df)
 imp <- m$importance
@@ -141,8 +159,8 @@ 
Parcats from model response alluvi
 p <- alluvial_model_response(pred, dspace, imp, degree = 3)
 
 parcats(p, marginal_histograms = TRUE, imp = TRUE, data_input = df)

-

-
+

+
@@ -164,7 +182,7 @@

Parcats from model response alluvi

-

Site built with pkgdown 2.0.5.

+

Site built with pkgdown 2.0.7.

diff --git a/articles/parcats_files/htmlwidgets-1.6.4/htmlwidgets.js b/articles/parcats_files/htmlwidgets-1.6.4/htmlwidgets.js new file mode 100644 index 0000000..1067d02 --- /dev/null +++ b/articles/parcats_files/htmlwidgets-1.6.4/htmlwidgets.js @@ -0,0 +1,901 @@ +(function() { + // If window.HTMLWidgets is already defined, then use it; otherwise create a + // new object. This allows preceding code to set options that affect the + // initialization process (though none currently exist). + window.HTMLWidgets = window.HTMLWidgets || {}; + + // See if we're running in a viewer pane. If not, we're in a web browser. + var viewerMode = window.HTMLWidgets.viewerMode = + /\bviewer_pane=1\b/.test(window.location); + + // See if we're running in Shiny mode. If not, it's a static document. + // Note that static widgets can appear in both Shiny and static modes, but + // obviously, Shiny widgets can only appear in Shiny apps/documents. + var shinyMode = window.HTMLWidgets.shinyMode = + typeof(window.Shiny) !== "undefined" && !!window.Shiny.outputBindings; + + // We can't count on jQuery being available, so we implement our own + // version if necessary. + function querySelectorAll(scope, selector) { + if (typeof(jQuery) !== "undefined" && scope instanceof jQuery) { + return scope.find(selector); + } + if (scope.querySelectorAll) { + return scope.querySelectorAll(selector); + } + } + + function asArray(value) { + if (value === null) + return []; + if ($.isArray(value)) + return value; + return [value]; + } + + // Implement jQuery's extend + function extend(target /*, ... */) { + if (arguments.length == 1) { + return target; + } + for (var i = 1; i < arguments.length; i++) { + var source = arguments[i]; + for (var prop in source) { + if (source.hasOwnProperty(prop)) { + target[prop] = source[prop]; + } + } + } + return target; + } + + // IE8 doesn't support Array.forEach. + function forEach(values, callback, thisArg) { + if (values.forEach) { + values.forEach(callback, thisArg); + } else { + for (var i = 0; i < values.length; i++) { + callback.call(thisArg, values[i], i, values); + } + } + } + + // Replaces the specified method with the return value of funcSource. + // + // Note that funcSource should not BE the new method, it should be a function + // that RETURNS the new method. funcSource receives a single argument that is + // the overridden method, it can be called from the new method. The overridden + // method can be called like a regular function, it has the target permanently + // bound to it so "this" will work correctly. + function overrideMethod(target, methodName, funcSource) { + var superFunc = target[methodName] || function() {}; + var superFuncBound = function() { + return superFunc.apply(target, arguments); + }; + target[methodName] = funcSource(superFuncBound); + } + + // Add a method to delegator that, when invoked, calls + // delegatee.methodName. If there is no such method on + // the delegatee, but there was one on delegator before + // delegateMethod was called, then the original version + // is invoked instead. + // For example: + // + // var a = { + // method1: function() { console.log('a1'); } + // method2: function() { console.log('a2'); } + // }; + // var b = { + // method1: function() { console.log('b1'); } + // }; + // delegateMethod(a, b, "method1"); + // delegateMethod(a, b, "method2"); + // a.method1(); + // a.method2(); + // + // The output would be "b1", "a2". + function delegateMethod(delegator, delegatee, methodName) { + var inherited = delegator[methodName]; + delegator[methodName] = function() { + var target = delegatee; + var method = delegatee[methodName]; + + // The method doesn't exist on the delegatee. Instead, + // call the method on the delegator, if it exists. + if (!method) { + target = delegator; + method = inherited; + } + + if (method) { + return method.apply(target, arguments); + } + }; + } + + // Implement a vague facsimilie of jQuery's data method + function elementData(el, name, value) { + if (arguments.length == 2) { + return el["htmlwidget_data_" + name]; + } else if (arguments.length == 3) { + el["htmlwidget_data_" + name] = value; + return el; + } else { + throw new Error("Wrong number of arguments for elementData: " + + arguments.length); + } + } + + // http://stackoverflow.com/questions/3446170/escape-string-for-use-in-javascript-regex + function escapeRegExp(str) { + return str.replace(/[\-\[\]\/\{\}\(\)\*\+\?\.\\\^\$\|]/g, "\\$&"); + } + + function hasClass(el, className) { + var re = new RegExp("\\b" + escapeRegExp(className) + "\\b"); + return re.test(el.className); + } + + // elements - array (or array-like object) of HTML elements + // className - class name to test for + // include - if true, only return elements with given className; + // if false, only return elements *without* given className + function filterByClass(elements, className, include) { + var results = []; + for (var i = 0; i < elements.length; i++) { + if (hasClass(elements[i], className) == include) + results.push(elements[i]); + } + return results; + } + + function on(obj, eventName, func) { + if (obj.addEventListener) { + obj.addEventListener(eventName, func, false); + } else if (obj.attachEvent) { + obj.attachEvent(eventName, func); + } + } + + function off(obj, eventName, func) { + if (obj.removeEventListener) + obj.removeEventListener(eventName, func, false); + else if (obj.detachEvent) { + obj.detachEvent(eventName, func); + } + } + + // Translate array of values to top/right/bottom/left, as usual with + // the "padding" CSS property + // https://developer.mozilla.org/en-US/docs/Web/CSS/padding + function unpackPadding(value) { + if (typeof(value) === "number") + value = [value]; + if (value.length === 1) { + return {top: value[0], right: value[0], bottom: value[0], left: value[0]}; + } + if (value.length === 2) { + return {top: value[0], right: value[1], bottom: value[0], left: value[1]}; + } + if (value.length === 3) { + return {top: value[0], right: value[1], bottom: value[2], left: value[1]}; + } + if (value.length === 4) { + return {top: value[0], right: value[1], bottom: value[2], left: value[3]}; + } + } + + // Convert an unpacked padding object to a CSS value + function paddingToCss(paddingObj) { + return paddingObj.top + "px " + paddingObj.right + "px " + paddingObj.bottom + "px " + paddingObj.left + "px"; + } + + // Makes a number suitable for CSS + function px(x) { + if (typeof(x) === "number") + return x + "px"; + else + return x; + } + + // Retrieves runtime widget sizing information for an element. + // The return value is either null, or an object with fill, padding, + // defaultWidth, defaultHeight fields. + function sizingPolicy(el) { + var sizingEl = document.querySelector("script[data-for='" + el.id + "'][type='application/htmlwidget-sizing']"); + if (!sizingEl) + return null; + var sp = JSON.parse(sizingEl.textContent || sizingEl.text || "{}"); + if (viewerMode) { + return sp.viewer; + } else { + return sp.browser; + } + } + + // @param tasks Array of strings (or falsy value, in which case no-op). + // Each element must be a valid JavaScript expression that yields a + // function. Or, can be an array of objects with "code" and "data" + // properties; in this case, the "code" property should be a string + // of JS that's an expr that yields a function, and "data" should be + // an object that will be added as an additional argument when that + // function is called. + // @param target The object that will be "this" for each function + // execution. + // @param args Array of arguments to be passed to the functions. (The + // same arguments will be passed to all functions.) + function evalAndRun(tasks, target, args) { + if (tasks) { + forEach(tasks, function(task) { + var theseArgs = args; + if (typeof(task) === "object") { + theseArgs = theseArgs.concat([task.data]); + task = task.code; + } + var taskFunc = tryEval(task); + if (typeof(taskFunc) !== "function") { + throw new Error("Task must be a function! Source:\n" + task); + } + taskFunc.apply(target, theseArgs); + }); + } + } + + // Attempt eval() both with and without enclosing in parentheses. + // Note that enclosing coerces a function declaration into + // an expression that eval() can parse + // (otherwise, a SyntaxError is thrown) + function tryEval(code) { + var result = null; + try { + result = eval("(" + code + ")"); + } catch(error) { + if (!(error instanceof SyntaxError)) { + throw error; + } + try { + result = eval(code); + } catch(e) { + if (e instanceof SyntaxError) { + throw error; + } else { + throw e; + } + } + } + return result; + } + + function initSizing(el) { + var sizing = sizingPolicy(el); + if (!sizing) + return; + + var cel = document.getElementById("htmlwidget_container"); + if (!cel) + return; + + if (typeof(sizing.padding) !== "undefined") { + document.body.style.margin = "0"; + document.body.style.padding = paddingToCss(unpackPadding(sizing.padding)); + } + + if (sizing.fill) { + document.body.style.overflow = "hidden"; + document.body.style.width = "100%"; + document.body.style.height = "100%"; + document.documentElement.style.width = "100%"; + document.documentElement.style.height = "100%"; + cel.style.position = "absolute"; + var pad = unpackPadding(sizing.padding); + cel.style.top = pad.top + "px"; + cel.style.right = pad.right + "px"; + cel.style.bottom = pad.bottom + "px"; + cel.style.left = pad.left + "px"; + el.style.width = "100%"; + el.style.height = "100%"; + + return { + getWidth: function() { return cel.getBoundingClientRect().width; }, + getHeight: function() { return cel.getBoundingClientRect().height; } + }; + + } else { + el.style.width = px(sizing.width); + el.style.height = px(sizing.height); + + return { + getWidth: function() { return cel.getBoundingClientRect().width; }, + getHeight: function() { return cel.getBoundingClientRect().height; } + }; + } + } + + // Default implementations for methods + var defaults = { + find: function(scope) { + return querySelectorAll(scope, "." + this.name); + }, + renderError: function(el, err) { + var $el = $(el); + + this.clearError(el); + + // Add all these error classes, as Shiny does + var errClass = "shiny-output-error"; + if (err.type !== null) { + // use the classes of the error condition as CSS class names + errClass = errClass + " " + $.map(asArray(err.type), function(type) { + return errClass + "-" + type; + }).join(" "); + } + errClass = errClass + " htmlwidgets-error"; + + // Is el inline or block? If inline or inline-block, just display:none it + // and add an inline error. + var display = $el.css("display"); + $el.data("restore-display-mode", display); + + if (display === "inline" || display === "inline-block") { + $el.hide(); + if (err.message !== "") { + var errorSpan = $("").addClass(errClass); + errorSpan.text(err.message); + $el.after(errorSpan); + } + } else if (display === "block") { + // If block, add an error just after the el, set visibility:none on the + // el, and position the error to be on top of the el. + // Mark it with a unique ID and CSS class so we can remove it later. + $el.css("visibility", "hidden"); + if (err.message !== "") { + var errorDiv = $("
").addClass(errClass).css("position", "absolute") + .css("top", el.offsetTop) + .css("left", el.offsetLeft) + // setting width can push out the page size, forcing otherwise + // unnecessary scrollbars to appear and making it impossible for + // the element to shrink; so use max-width instead + .css("maxWidth", el.offsetWidth) + .css("height", el.offsetHeight); + errorDiv.text(err.message); + $el.after(errorDiv); + + // Really dumb way to keep the size/position of the error in sync with + // the parent element as the window is resized or whatever. + var intId = setInterval(function() { + if (!errorDiv[0].parentElement) { + clearInterval(intId); + return; + } + errorDiv + .css("top", el.offsetTop) + .css("left", el.offsetLeft) + .css("maxWidth", el.offsetWidth) + .css("height", el.offsetHeight); + }, 500); + } + } + }, + clearError: function(el) { + var $el = $(el); + var display = $el.data("restore-display-mode"); + $el.data("restore-display-mode", null); + + if (display === "inline" || display === "inline-block") { + if (display) + $el.css("display", display); + $(el.nextSibling).filter(".htmlwidgets-error").remove(); + } else if (display === "block"){ + $el.css("visibility", "inherit"); + $(el.nextSibling).filter(".htmlwidgets-error").remove(); + } + }, + sizing: {} + }; + + // Called by widget bindings to register a new type of widget. The definition + // object can contain the following properties: + // - name (required) - A string indicating the binding name, which will be + // used by default as the CSS classname to look for. + // - initialize (optional) - A function(el) that will be called once per + // widget element; if a value is returned, it will be passed as the third + // value to renderValue. + // - renderValue (required) - A function(el, data, initValue) that will be + // called with data. Static contexts will cause this to be called once per + // element; Shiny apps will cause this to be called multiple times per + // element, as the data changes. + window.HTMLWidgets.widget = function(definition) { + if (!definition.name) { + throw new Error("Widget must have a name"); + } + if (!definition.type) { + throw new Error("Widget must have a type"); + } + // Currently we only support output widgets + if (definition.type !== "output") { + throw new Error("Unrecognized widget type '" + definition.type + "'"); + } + // TODO: Verify that .name is a valid CSS classname + + // Support new-style instance-bound definitions. Old-style class-bound + // definitions have one widget "object" per widget per type/class of + // widget; the renderValue and resize methods on such widget objects + // take el and instance arguments, because the widget object can't + // store them. New-style instance-bound definitions have one widget + // object per widget instance; the definition that's passed in doesn't + // provide renderValue or resize methods at all, just the single method + // factory(el, width, height) + // which returns an object that has renderValue(x) and resize(w, h). + // This enables a far more natural programming style for the widget + // author, who can store per-instance state using either OO-style + // instance fields or functional-style closure variables (I guess this + // is in contrast to what can only be called C-style pseudo-OO which is + // what we required before). + if (definition.factory) { + definition = createLegacyDefinitionAdapter(definition); + } + + if (!definition.renderValue) { + throw new Error("Widget must have a renderValue function"); + } + + // For static rendering (non-Shiny), use a simple widget registration + // scheme. We also use this scheme for Shiny apps/documents that also + // contain static widgets. + window.HTMLWidgets.widgets = window.HTMLWidgets.widgets || []; + // Merge defaults into the definition; don't mutate the original definition. + var staticBinding = extend({}, defaults, definition); + overrideMethod(staticBinding, "find", function(superfunc) { + return function(scope) { + var results = superfunc(scope); + // Filter out Shiny outputs, we only want the static kind + return filterByClass(results, "html-widget-output", false); + }; + }); + window.HTMLWidgets.widgets.push(staticBinding); + + if (shinyMode) { + // Shiny is running. Register the definition with an output binding. + // The definition itself will not be the output binding, instead + // we will make an output binding object that delegates to the + // definition. This is because we foolishly used the same method + // name (renderValue) for htmlwidgets definition and Shiny bindings + // but they actually have quite different semantics (the Shiny + // bindings receive data that includes lots of metadata that it + // strips off before calling htmlwidgets renderValue). We can't + // just ignore the difference because in some widgets it's helpful + // to call this.renderValue() from inside of resize(), and if + // we're not delegating, then that call will go to the Shiny + // version instead of the htmlwidgets version. + + // Merge defaults with definition, without mutating either. + var bindingDef = extend({}, defaults, definition); + + // This object will be our actual Shiny binding. + var shinyBinding = new Shiny.OutputBinding(); + + // With a few exceptions, we'll want to simply use the bindingDef's + // version of methods if they are available, otherwise fall back to + // Shiny's defaults. NOTE: If Shiny's output bindings gain additional + // methods in the future, and we want them to be overrideable by + // HTMLWidget binding definitions, then we'll need to add them to this + // list. + delegateMethod(shinyBinding, bindingDef, "getId"); + delegateMethod(shinyBinding, bindingDef, "onValueChange"); + delegateMethod(shinyBinding, bindingDef, "onValueError"); + delegateMethod(shinyBinding, bindingDef, "renderError"); + delegateMethod(shinyBinding, bindingDef, "clearError"); + delegateMethod(shinyBinding, bindingDef, "showProgress"); + + // The find, renderValue, and resize are handled differently, because we + // want to actually decorate the behavior of the bindingDef methods. + + shinyBinding.find = function(scope) { + var results = bindingDef.find(scope); + + // Only return elements that are Shiny outputs, not static ones + var dynamicResults = results.filter(".html-widget-output"); + + // It's possible that whatever caused Shiny to think there might be + // new dynamic outputs, also caused there to be new static outputs. + // Since there might be lots of different htmlwidgets bindings, we + // schedule execution for later--no need to staticRender multiple + // times. + if (results.length !== dynamicResults.length) + scheduleStaticRender(); + + return dynamicResults; + }; + + // Wrap renderValue to handle initialization, which unfortunately isn't + // supported natively by Shiny at the time of this writing. + + shinyBinding.renderValue = function(el, data) { + Shiny.renderDependencies(data.deps); + // Resolve strings marked as javascript literals to objects + if (!(data.evals instanceof Array)) data.evals = [data.evals]; + for (var i = 0; data.evals && i < data.evals.length; i++) { + window.HTMLWidgets.evaluateStringMember(data.x, data.evals[i]); + } + if (!bindingDef.renderOnNullValue) { + if (data.x === null) { + el.style.visibility = "hidden"; + return; + } else { + el.style.visibility = "inherit"; + } + } + if (!elementData(el, "initialized")) { + initSizing(el); + + elementData(el, "initialized", true); + if (bindingDef.initialize) { + var rect = el.getBoundingClientRect(); + var result = bindingDef.initialize(el, rect.width, rect.height); + elementData(el, "init_result", result); + } + } + bindingDef.renderValue(el, data.x, elementData(el, "init_result")); + evalAndRun(data.jsHooks.render, elementData(el, "init_result"), [el, data.x]); + }; + + // Only override resize if bindingDef implements it + if (bindingDef.resize) { + shinyBinding.resize = function(el, width, height) { + // Shiny can call resize before initialize/renderValue have been + // called, which doesn't make sense for widgets. + if (elementData(el, "initialized")) { + bindingDef.resize(el, width, height, elementData(el, "init_result")); + } + }; + } + + Shiny.outputBindings.register(shinyBinding, bindingDef.name); + } + }; + + var scheduleStaticRenderTimerId = null; + function scheduleStaticRender() { + if (!scheduleStaticRenderTimerId) { + scheduleStaticRenderTimerId = setTimeout(function() { + scheduleStaticRenderTimerId = null; + window.HTMLWidgets.staticRender(); + }, 1); + } + } + + // Render static widgets after the document finishes loading + // Statically render all elements that are of this widget's class + window.HTMLWidgets.staticRender = function() { + var bindings = window.HTMLWidgets.widgets || []; + forEach(bindings, function(binding) { + var matches = binding.find(document.documentElement); + forEach(matches, function(el) { + var sizeObj = initSizing(el, binding); + + var getSize = function(el) { + if (sizeObj) { + return {w: sizeObj.getWidth(), h: sizeObj.getHeight()} + } else { + var rect = el.getBoundingClientRect(); + return {w: rect.width, h: rect.height} + } + }; + + if (hasClass(el, "html-widget-static-bound")) + return; + el.className = el.className + " html-widget-static-bound"; + + var initResult; + if (binding.initialize) { + var size = getSize(el); + initResult = binding.initialize(el, size.w, size.h); + elementData(el, "init_result", initResult); + } + + if (binding.resize) { + var lastSize = getSize(el); + var resizeHandler = function(e) { + var size = getSize(el); + if (size.w === 0 && size.h === 0) + return; + if (size.w === lastSize.w && size.h === lastSize.h) + return; + lastSize = size; + binding.resize(el, size.w, size.h, initResult); + }; + + on(window, "resize", resizeHandler); + + // This is needed for cases where we're running in a Shiny + // app, but the widget itself is not a Shiny output, but + // rather a simple static widget. One example of this is + // an rmarkdown document that has runtime:shiny and widget + // that isn't in a render function. Shiny only knows to + // call resize handlers for Shiny outputs, not for static + // widgets, so we do it ourselves. + if (window.jQuery) { + window.jQuery(document).on( + "shown.htmlwidgets shown.bs.tab.htmlwidgets shown.bs.collapse.htmlwidgets", + resizeHandler + ); + window.jQuery(document).on( + "hidden.htmlwidgets hidden.bs.tab.htmlwidgets hidden.bs.collapse.htmlwidgets", + resizeHandler + ); + } + + // This is needed for the specific case of ioslides, which + // flips slides between display:none and display:block. + // Ideally we would not have to have ioslide-specific code + // here, but rather have ioslides raise a generic event, + // but the rmarkdown package just went to CRAN so the + // window to getting that fixed may be long. + if (window.addEventListener) { + // It's OK to limit this to window.addEventListener + // browsers because ioslides itself only supports + // such browsers. + on(document, "slideenter", resizeHandler); + on(document, "slideleave", resizeHandler); + } + } + + var scriptData = document.querySelector("script[data-for='" + el.id + "'][type='application/json']"); + if (scriptData) { + var data = JSON.parse(scriptData.textContent || scriptData.text); + // Resolve strings marked as javascript literals to objects + if (!(data.evals instanceof Array)) data.evals = [data.evals]; + for (var k = 0; data.evals && k < data.evals.length; k++) { + window.HTMLWidgets.evaluateStringMember(data.x, data.evals[k]); + } + binding.renderValue(el, data.x, initResult); + evalAndRun(data.jsHooks.render, initResult, [el, data.x]); + } + }); + }); + + invokePostRenderHandlers(); + } + + + function has_jQuery3() { + if (!window.jQuery) { + return false; + } + var $version = window.jQuery.fn.jquery; + var $major_version = parseInt($version.split(".")[0]); + return $major_version >= 3; + } + + /* + / Shiny 1.4 bumped jQuery from 1.x to 3.x which means jQuery's + / on-ready handler (i.e., $(fn)) is now asyncronous (i.e., it now + / really means $(setTimeout(fn)). + / https://jquery.com/upgrade-guide/3.0/#breaking-change-document-ready-handlers-are-now-asynchronous + / + / Since Shiny uses $() to schedule initShiny, shiny>=1.4 calls initShiny + / one tick later than it did before, which means staticRender() is + / called renderValue() earlier than (advanced) widget authors might be expecting. + / https://github.com/rstudio/shiny/issues/2630 + / + / For a concrete example, leaflet has some methods (e.g., updateBounds) + / which reference Shiny methods registered in initShiny (e.g., setInputValue). + / Since leaflet is privy to this life-cycle, it knows to use setTimeout() to + / delay execution of those methods (until Shiny methods are ready) + / https://github.com/rstudio/leaflet/blob/18ec981/javascript/src/index.js#L266-L268 + / + / Ideally widget authors wouldn't need to use this setTimeout() hack that + / leaflet uses to call Shiny methods on a staticRender(). In the long run, + / the logic initShiny should be broken up so that method registration happens + / right away, but binding happens later. + */ + function maybeStaticRenderLater() { + if (shinyMode && has_jQuery3()) { + window.jQuery(window.HTMLWidgets.staticRender); + } else { + window.HTMLWidgets.staticRender(); + } + } + + if (document.addEventListener) { + document.addEventListener("DOMContentLoaded", function() { + document.removeEventListener("DOMContentLoaded", arguments.callee, false); + maybeStaticRenderLater(); + }, false); + } else if (document.attachEvent) { + document.attachEvent("onreadystatechange", function() { + if (document.readyState === "complete") { + document.detachEvent("onreadystatechange", arguments.callee); + maybeStaticRenderLater(); + } + }); + } + + + window.HTMLWidgets.getAttachmentUrl = function(depname, key) { + // If no key, default to the first item + if (typeof(key) === "undefined") + key = 1; + + var link = document.getElementById(depname + "-" + key + "-attachment"); + if (!link) { + throw new Error("Attachment " + depname + "/" + key + " not found in document"); + } + return link.getAttribute("href"); + }; + + window.HTMLWidgets.dataframeToD3 = function(df) { + var names = []; + var length; + for (var name in df) { + if (df.hasOwnProperty(name)) + names.push(name); + if (typeof(df[name]) !== "object" || typeof(df[name].length) === "undefined") { + throw new Error("All fields must be arrays"); + } else if (typeof(length) !== "undefined" && length !== df[name].length) { + throw new Error("All fields must be arrays of the same length"); + } + length = df[name].length; + } + var results = []; + var item; + for (var row = 0; row < length; row++) { + item = {}; + for (var col = 0; col < names.length; col++) { + item[names[col]] = df[names[col]][row]; + } + results.push(item); + } + return results; + }; + + window.HTMLWidgets.transposeArray2D = function(array) { + if (array.length === 0) return array; + var newArray = array[0].map(function(col, i) { + return array.map(function(row) { + return row[i] + }) + }); + return newArray; + }; + // Split value at splitChar, but allow splitChar to be escaped + // using escapeChar. Any other characters escaped by escapeChar + // will be included as usual (including escapeChar itself). + function splitWithEscape(value, splitChar, escapeChar) { + var results = []; + var escapeMode = false; + var currentResult = ""; + for (var pos = 0; pos < value.length; pos++) { + if (!escapeMode) { + if (value[pos] === splitChar) { + results.push(currentResult); + currentResult = ""; + } else if (value[pos] === escapeChar) { + escapeMode = true; + } else { + currentResult += value[pos]; + } + } else { + currentResult += value[pos]; + escapeMode = false; + } + } + if (currentResult !== "") { + results.push(currentResult); + } + return results; + } + // Function authored by Yihui/JJ Allaire + window.HTMLWidgets.evaluateStringMember = function(o, member) { + var parts = splitWithEscape(member, '.', '\\'); + for (var i = 0, l = parts.length; i < l; i++) { + var part = parts[i]; + // part may be a character or 'numeric' member name + if (o !== null && typeof o === "object" && part in o) { + if (i == (l - 1)) { // if we are at the end of the line then evalulate + if (typeof o[part] === "string") + o[part] = tryEval(o[part]); + } else { // otherwise continue to next embedded object + o = o[part]; + } + } + } + }; + + // Retrieve the HTMLWidget instance (i.e. the return value of an + // HTMLWidget binding's initialize() or factory() function) + // associated with an element, or null if none. + window.HTMLWidgets.getInstance = function(el) { + return elementData(el, "init_result"); + }; + + // Finds the first element in the scope that matches the selector, + // and returns the HTMLWidget instance (i.e. the return value of + // an HTMLWidget binding's initialize() or factory() function) + // associated with that element, if any. If no element matches the + // selector, or the first matching element has no HTMLWidget + // instance associated with it, then null is returned. + // + // The scope argument is optional, and defaults to window.document. + window.HTMLWidgets.find = function(scope, selector) { + if (arguments.length == 1) { + selector = scope; + scope = document; + } + + var el = scope.querySelector(selector); + if (el === null) { + return null; + } else { + return window.HTMLWidgets.getInstance(el); + } + }; + + // Finds all elements in the scope that match the selector, and + // returns the HTMLWidget instances (i.e. the return values of + // an HTMLWidget binding's initialize() or factory() function) + // associated with the elements, in an array. If elements that + // match the selector don't have an associated HTMLWidget + // instance, the returned array will contain nulls. + // + // The scope argument is optional, and defaults to window.document. + window.HTMLWidgets.findAll = function(scope, selector) { + if (arguments.length == 1) { + selector = scope; + scope = document; + } + + var nodes = scope.querySelectorAll(selector); + var results = []; + for (var i = 0; i < nodes.length; i++) { + results.push(window.HTMLWidgets.getInstance(nodes[i])); + } + return results; + }; + + var postRenderHandlers = []; + function invokePostRenderHandlers() { + while (postRenderHandlers.length) { + var handler = postRenderHandlers.shift(); + if (handler) { + handler(); + } + } + } + + // Register the given callback function to be invoked after the + // next time static widgets are rendered. + window.HTMLWidgets.addPostRenderHandler = function(callback) { + postRenderHandlers.push(callback); + }; + + // Takes a new-style instance-bound definition, and returns an + // old-style class-bound definition. This saves us from having + // to rewrite all the logic in this file to accomodate both + // types of definitions. + function createLegacyDefinitionAdapter(defn) { + var result = { + name: defn.name, + type: defn.type, + initialize: function(el, width, height) { + return defn.factory(el, width, height); + }, + renderValue: function(el, x, instance) { + return instance.renderValue(x); + }, + resize: function(el, width, height, instance) { + return instance.resize(width, height); + } + }; + + if (defn.find) + result.find = defn.find; + if (defn.renderError) + result.renderError = defn.renderError; + if (defn.clearError) + result.clearError = defn.clearError; + + return result; + } +})(); diff --git a/articles/parcats_files/parcats-binding-0.0.5/parcats.js b/articles/parcats_files/parcats-binding-0.0.5/parcats.js new file mode 100644 index 0000000..297bacb --- /dev/null +++ b/articles/parcats_files/parcats-binding-0.0.5/parcats.js @@ -0,0 +1,152 @@ + +HTMLWidgets.widget({ + name: "parcats", + type: "output", + + initialize: function(el, width, height) { + return {}; + }, + + resize: function(el, width, height, instance) { + if (instance.autosize) { + var width = instance.width || width; + var height = instance.height || height; + Plotly.relayout(el.id, {width: width, height: height}); + } + }, + + renderValue: function(el, x, instance) { + + var data = []; + var layout = []; + var myPlot = document.getElementById(el.id); + + // x.traces is passed as an Object with named elements + // but needs to be converted to array with unnamed elements + for( var key of Object.keys(x.traces)){ + data.push( x.traces[key] ); + } + + + layout = x.layout; + + var shapes = []; + + for( var key of Object.keys(x.shapes)){ + shapes.push( x.shapes[key] ); + } + + var shapes_original = []; + + for( var key of Object.keys(x.shapes_original)){ + shapes_original.push( x.shapes_original[key] ); + } + + layout['shapes'] = shapes; + + Plotly.newPlot(el.id, data, layout, {responsive: true}); + + myPlot.on('plotly_hover', function(data){ + + // this is the proper way too deepcopy object in JS + // before I was passing two versions of the same object + shapes = JSON.parse(JSON.stringify(shapes_original)); + + var curve = data.points[0].curveNumber; + + // curve == 0, is the parcats trace + if( curve == 0 ){ + + for ( var i_data in data.points){ + + var point = data.points[i_data].pointNumber; + + for(var i in x.map_curve[point] ){ + + if( x.map_type[point][i] == 'scatter'){ + + Plotly.restyle(el.id, {fillcolor : x.parcats_cols[point] + // changing of the marker color takes too long + //, line : { color : x.parcats_cols[point] } + //, marker : { color : x.parcats_cols[point] } + } + , parseInt(x.map_curve[point][i]) ); + } + + if( x.map_type[point][i] == 'bar'){ + + Plotly.restyle(el.id, { marker : { color : x.parcats_cols[point] } + } + , parseInt(x.map_curve[point][i]) ); + } + + if( x.map_type[point][i] == 'line'){ + + tr = x.map_curve[point][i]; + + shape_index = x.map_trace_2_shape[tr -1]; + + shapes[shape_index -1 ]['line']['color'] = x.parcats_cols[point]; + + } + + } + + } + } + + var t1 = curve + , t2 = data.points[0].pointNumber + , t3 = x.map_type[t2] + , t4 = x.map_curve[t2] + ; + + // use first title option for debugging + var title = t1 + '_' + t2 + '_' + t3 + '_' + t4 + '_' + x.map_trace_2_shape[12]+ '_' + x.map_trace_2_shape[15]; + var title = ''; + + if(curve == 0){ + Plotly.relayout(el.id, { shapes : shapes + , title : title} ); + } + }); + + myPlot.on('plotly_unhover', function(data){ + + var curve = data.points[0].curveNumber; + + if( curve == 0){ + + for( var i_data in data.points){ + + var point = data.points[i_data].pointNumber; + + for(var i in x.map_curve[point] ){ + + if( x.map_type[point][i] == 'scatter'){ + + Plotly.restyle(el.id, {fillcolor : x.map_color[point][i] + //, line : { color : x.hist_cols[x.map[point][i] - 1] } + //, marker : { color : x.hist_cols[x.map[point][i] - 1] } + } + , parseInt(x.map_curve[point][i]) ); + } + + if( x.map_type[point][i] == 'bar'){ + + Plotly.restyle(el.id, { marker : { color : x.map_color[point][i] } + } + , parseInt(x.map_curve[point][i]) ); + } + + } + + } + } + + Plotly.relayout(el.id, { shapes : shapes_original + , title : ''} ); + }); + + } +}); \ No newline at end of file diff --git a/authors.html b/authors.html index 0a2d570..cd59345 100644 --- a/authors.html +++ b/authors.html @@ -23,7 +23,7 @@ parcats - 0.0.4 + 0.0.5
@@ -76,15 +76,15 @@

Citation

-

Koneswarakantha B (2022). +

Koneswarakantha B (2023). parcats: Interactive Parallel Categories Diagrams for 'easyalluvial'. -R package version 0.0.4, https://erblast.github.io/parcats/. +R package version 0.0.5, https://erblast.github.io/parcats/. 

@Manual{,
   title = {parcats: Interactive Parallel Categories Diagrams for 'easyalluvial'},
   author = {Bjoern Koneswarakantha},
-  year = {2022},
-  note = {R package version 0.0.4},
+  year = {2023},
+  note = {R package version 0.0.5},
   url = {https://erblast.github.io/parcats/},
 }
@@ -99,7 +99,7 @@

Citation

-

Site built with pkgdown 2.0.5.

+

Site built with pkgdown 2.0.7.

diff --git a/index.html b/index.html index a54c01f..b23b47a 100644 --- a/index.html +++ b/index.html @@ -51,7 +51,7 @@ parcats - 0.0.4 + 0.0.5 @@ -97,6 +97,7 @@ +
Create ‘plotly.js’ Parallel Categories Diagrams Using this Htmlwidget and ‘easyalluvial’
@@ -115,8 +116,9 @@

CRAN

Development Version 

-# install.packages("devtools")
-devtools::install_github("erblast/parcats")
+ +# install.packages("devtools") +devtools::install_github("erblast/parcats")
@@ -160,10 +162,12 @@

Parcats from alluvial fr

Parcats from model response alluvial

Machine Learning models operate in a multidimensional space and their response is hard to visualise. Model response and partial dependency plots attempt to visualise ML models in a two dimensional space. Using alluvial plots or parrallel categories diagrams we can increase the number of dimensions.

- +

Here we see the response of a random forest model if we vary the three variables with the highest importance while keeping all other features at their median/mode value.

-df <- select(mtcars2, -ids )
+df <- select(mtcars2, -ids )
 m <- randomForest::randomForest( disp ~ ., df)
 imp <- m$importance
 dspace <- get_data_space(df, imp, degree = 3)
@@ -213,7 +217,6 @@ 
Developers

 

 
Dev status

 
    
-
  • AppVeyor build status
    • 
 
  • Codecov test coverage
    • 
 
  • CRAN status
    • 
 
  • CRAN_time_from_release
    • 
@@ -234,7 +237,7 @@ 
    Dev status
    
 
 
    
   
    
-
    Site built with pkgdown 2.0.5.
    
+
    Site built with pkgdown 2.0.7.
    
 
    
 
       
diff --git a/news/index.html b/news/index.html
index f22c81e..8cb47d3 100644
--- a/news/index.html
+++ b/news/index.html
@@ -23,7 +23,7 @@
       
       
         parcats
-        0.0.4
+        0.0.5
       
     

 
@@ -62,9 +62,14 @@ 
Changelog 

       Source: NEWS.md
+
+

parcats 0.0.5

+
  • update vignette
    • +

parcats 0.0.42022-07-08

-
  • updated package dependencies
+
  • updated package dependencies
    • +

parcats 0.0.32021-10-15

  • upgraded packaged ‘plotly.js’ to v2.5.1
    • @@ -73,10 +78,12 @@

    parcats 0.0.3

parcats 0.0.22020-09-09

-
  • upgraded packaged ‘plotly.js’ to v1.54.1
+
  • upgraded packaged ‘plotly.js’ to v1.54.1
    • +

parcats 0.0.12019-12-02

-
  • first release
+
  • first release
    • +
diff --git a/pkgdown.yml b/pkgdown.yml index e9861c8..554ebab 100644 --- a/pkgdown.yml +++ b/pkgdown.yml @@ -1,9 +1,9 @@ -pandoc: 2.7.3 -pkgdown: 2.0.5 +pandoc: 2.19.2 +pkgdown: 2.0.7 pkgdown_sha: ~ articles: parcats: parcats.html -last_built: 2022-07-09T07:07Z +last_built: 2023-12-08T07:23Z urls: reference: https://erblast.github.io/parcats/reference article: https://erblast.github.io/parcats/articles diff --git a/reference/index.html b/reference/index.html index 3ab3603..5817357 100644 --- a/reference/index.html +++ b/reference/index.html @@ -23,7 +23,7 @@ parcats - 0.0.4 + 0.0.5 @@ -90,7 +90,7 @@

All functions
-

Site built with pkgdown 2.0.5.

+

Site built with pkgdown 2.0.7.

diff --git a/reference/parcats-shiny.html b/reference/parcats-shiny.html index efae91f..71a6522 100644 --- a/reference/parcats-shiny.html +++ b/reference/parcats-shiny.html @@ -24,7 +24,7 @@ parcats - 0.0.4 + 0.0.5 @@ -117,7 +117,7 @@

Arguments

-

Site built with pkgdown 2.0.5.

+

Site built with pkgdown 2.0.7.

diff --git a/reference/parcats.html b/reference/parcats.html index c6849e3..cd4764f 100644 --- a/reference/parcats.html +++ b/reference/parcats.html @@ -9,7 +9,7 @@ gtag('js', new Date()); gtag('config', 'UA-123997499-2'); - +
@@ -24,7 +24,7 @@ parcats - 0.0.4 + 0.0.5
@@ -197,18 +197,16 @@

See also

Examples


-# \dontrun{
+if (FALSE) {
 library(easyalluvial)
 
 # alluvial wide ---------------------------------
 p = alluvial_wide(mtcars2, max_variables = 5)
 
 parcats(p, marginal_histograms = FALSE)
-

-
+
 parcats(p, marginal_histograms = TRUE, data_input = mtcars2)
-

-
+
 # alluvial for model response --------------------
 df = mtcars2[, ! names(mtcars2) %in% 'ids' ]
 m = randomForest::randomForest( disp ~ ., df)
@@ -218,8 +216,7 @@ 
Examples

 p = alluvial_model_response(pred, dspace, imp, degree = 3)
 
 parcats(p, marginal_histograms = TRUE, imp = TRUE, data_input = df)
-

-# }
+}
@@ -235,7 +232,7 @@

Examples

-

Site built with pkgdown 2.0.5.

+

Site built with pkgdown 2.0.7.

diff --git a/reference/parcats_demo.html b/reference/parcats_demo.html index ee6c6a1..f7def61 100644 --- a/reference/parcats_demo.html +++ b/reference/parcats_demo.html @@ -23,7 +23,7 @@ parcats - 0.0.4 + 0.0.5 @@ -91,7 +91,7 @@

Examples

-

Site built with pkgdown 2.0.5.

+

Site built with pkgdown 2.0.7.

diff --git a/reference/pipe.html b/reference/pipe.html index e3468f4..b0206b5 100644 --- a/reference/pipe.html +++ b/reference/pipe.html @@ -23,7 +23,7 @@ parcats - 0.0.4 + 0.0.5 @@ -100,7 +100,7 @@

Value

-

Site built with pkgdown 2.0.5.

+

Site built with pkgdown 2.0.7.