Update documentation

.Rbuildignore

@@ -1,3 +1,8 @@
 ^.*\.Rproj$
 ^\.Rproj\.user$
+^_pkgdown\.yml$
+^data-raw$
+^docs$
+^pkgdown$
+^\.github$
 ^LICENSE\.md$

DESCRIPTION

@@ -2,8 +2,9 @@ Package: ggeo
 Type: Package
 Title: Provide Helpers and Themes for ggplot
 Version: 0.1.0
-Author: Pascal Burkhard
-Maintainer: Pascal Burkhard <[email protected]>
+Authors@R: 
+    person("Pascal", "Burkhard", , "[email protected]", role = c("aut", "cre"),
+           comment = c(ORCID = "0009-0001-5504-5084"))
 Description: This package provides helper functions for ggplot graphs and maps.
 License: MIT + file LICENSE
 Encoding: UTF-8
@@ -37,5 +38,4 @@ Depends:
     R (>= 4.1)
 Roxygen: list(markdown = TRUE)
 URL: https://ggeo.nenuial.org
-Authors@R: 
-    person("Pascal", "Burkhard", , "[email protected]", role = c("aut", "cre"))
+Config/Needs/website: nenuial/geopkg

README.md

@@ -2,7 +2,7 @@
 
 <!-- badges: start -->
 [![R-CMD-check](https://github.com/Nenuial/ggeo/actions/workflows/R-CMD-check.yaml/badge.svg)](https://github.com/Nenuial/ggeo/actions/workflows/R-CMD-check.yaml)
-[![geotools status badge](https://nenuial.r-universe.dev/badges/ggeo)](https://nenuial.r-universe.dev/ggeo)
+[![ggeo status badge](https://nenuial.r-universe.dev/badges/ggeo)](https://nenuial.r-universe.dev/ggeo)
 <!-- badges: end -->
 
 The goal of ggeo is to provide support functions to create plots and maps using {[ggplot2](https://ggplot2.tidyverse.org/)}. They are mainly used in my {[geographer](https://github.com/Nenuial/geographer)} package.

_pkgdown.yml

@@ -1,11 +1,6 @@
 url: https://ggeo.nenuial.org
 template:
-  package: preferably
-  bootstrap: 5
-
-home:
-  sidebar:
-    structure: [license, authors, dev]
+  package: geopkg
 
 reference:
 - title: Plot themes

docs/reference/libs/highchart-binding-0.9.4.9000/highchart.js

@@ -0,0 +1,260 @@
+HTMLWidgets.widget({
+
+  name: 'highchart',
+
+  type: 'output',
+
+  initialize: function(el, width, height) {
+
+    return {
+      // TODO: add instance fields as required
+    };
+
+  },
+
+  renderValue: function(el, x, instance) {
+
+    if(x.debug) {
+      window.xclone = JSON.parse(JSON.stringify(x));
+      window.elclone = $(el);
+      console.log(el);
+      console.log("hc_opts", x.hc_opts);
+      console.log("theme", x.theme);
+      console.log("conf_opts", x.conf_opts);
+    }
+
+    if(x.fonts !== undefined) {
+
+      x.fonts = ((typeof(x.fonts) == "string") ? [x.fonts] : x.fonts);
+
+      x.fonts.forEach(function(s){
+        /* http://stackoverflow.com/questions/4724606 */
+        var urlfont = 'https://fonts.googleapis.com/css?family=' + s;
+        if (!$("link[href='" + urlfont + "']").length) {
+          $('<link href="' + urlfont + '" rel="stylesheet" type="text/css">').appendTo("head");
+        }
+
+      });
+
+    }
+
+    ResetHighchartsOptions();
+
+    if(x.theme !== null) {
+
+      if(x.debug) console.log("adding THEME");
+
+      Highcharts.setOptions(x.theme);
+
+    }
+
+    if((x.theme && x.theme.chart.divBackgroundImage !== undefined) |
+         (x.hc_opts.chart  && x.hc_opts.chart.divBackgroundImage !== undefined)) {
+
+      if(x.debug) console.log("adding BackgroundImage");     
+
+      var bkgrnd = x.theme.chart.divBackgroundImage || x.hc_opts.chart.divBackgroundImage;
+
+      Highcharts.wrap(Highcharts.Chart.prototype, "getContainer", function (proceed) {
+
+        proceed.call(this);
+
+        $("#" + el.id).css("background-image", "url(" + bkgrnd + ")");
+        $("#" + el.id).css("-webkit-background-size", "cover");
+        $("#" + el.id).css("-moz-background-size", "cover");
+        $("#" + el.id).css("-o-background-size", "cover");
+        $("#" + el.id).css("background-size", "cover");
+
+      });
+
+    }
+
+    Highcharts.setOptions(x.conf_opts);
+
+    if(x.type == "chart") {
+      if(x.debug) console.log("charting CHART");
+      $("#" + el.id).highcharts(x.hc_opts);
+    } else if (x.type == "stock") {
+      if(x.debug) console.log("charting STOCK");
+      $("#" + el.id).highcharts('StockChart', x.hc_opts);  
+    } else if (x.type == "map"){
+      if(x.debug) console.log("charting MAP");
+
+      x.hc_opts.series = x.hc_opts.series.map(function(e){
+        if(e.geojson === true) {
+          if(x.debug) console.log("geojson\n\t", e.type, "\n\t", typeof(e.series));
+          e.data = Highcharts.geojson(e.data, e.type);
+        }
+        return e;
+      });
+
+      $("#" + el.id).highcharts('Map', x.hc_opts); 
+
+      if(x.hc_opts.mapNavigation !== undefined && x.hc_opts.mapNavigation.enabled === true){
+        /* if have navigation option and enabled true: http://stackoverflow.com/questions/7600454 */
+        $("#" + el.id).bind( 'mousewheel DOMMouseScroll', function ( e ) {
+          var e0 = e.originalEvent,
+          delta = e0.wheelDelta || -e0.detail;
+          this.scrollTop += ( delta < 0 ? 1 : -1 ) * 30;
+          e.preventDefault();
+
+        });
+
+      }
+
+    } else if (x.type == "gantt") {
+
+      if(x.debug) console.log("charting GANTT");
+
+      chart = Highcharts.ganttChart(el.id, x.hc_opts);
+
+    }
+
+    if(x.hc_opts.motion !== undefined) {
+
+      $("#" + el.id).css({"position" : "relative" });
+
+      if(x.debug) console.log("setting MOTION options");
+
+      var pc = $($("#" + el.id).find("#play-controls")[0]);
+
+      var ct = x.theme.chart;
+
+      if(ct.backgroundColor !== undefined) $(pc.find("#play-pause-button")[0]).css({backgroundColor : x.theme.chart.backgroundColor});
+      if(ct.style !== undefined)  $(pc.find("#play-output")[0]).css(x.theme.chart.style);
+      if(ct.style !== undefined && ct.style.color !== undefined) $(pc.find("#play-pause-button")[0]).css({color : x.theme.chart.style.color});
+
+
+    } 
+
+  },
+
+  resize: function(el, width, height, instance) {
+
+    /* http://stackoverflow.com/questions/18445784/ */
+    var chart = $("#" +el.id).highcharts();
+
+    if (chart && chart.options.chart.reflow === true) {  // _check for reflow option_
+      var w = chart.renderTo.clientWidth; 
+      var h = chart.renderTo.clientHeight; 
+      chart.setSize(w, h); 
+    }
+
+  }
+
+});
+
+if (HTMLWidgets.shinyMode) {
+
+  Shiny.addCustomMessageHandler('addSeries', function(msg) {
+
+    var chart = $("#" + msg.id).highcharts();
+
+    chart.addSeries(msg.series);
+
+  });
+
+  Shiny.addCustomMessageHandler('removeSeries', function(msg) {
+
+    var chart = $("#" + msg.id).highcharts();
+
+    chart.get(msg.idSeries).remove();
+
+  });
+
+  Shiny.addCustomMessageHandler('removeAllSeries', function(msg) {
+
+    var chart = $("#" + msg.id).highcharts();
+
+    while (chart.series.length) {
+      chart.series[0].remove();
+      }
+
+  });
+
+  Shiny.addCustomMessageHandler('updateChart', function(msg) {
+
+    var chart = $("#" + msg.id).highcharts();
+
+    chart.update(msg.options);
+
+  });
+
+  Shiny.addCustomMessageHandler('updateSeries', function(msg) {
+
+    var chart = $("#" + msg.id).highcharts();
+
+    chart.get(msg.idSeries).update(msg.options);
+
+  });
+
+  Shiny.addCustomMessageHandler('updatePoint', function(msg) {
+
+    var chart = $("#" + msg.id).highcharts();
+
+    chart.get(msg.idSeries).data[msg.idPoint].update(msg.options);
+
+  });
+
+  Shiny.addCustomMessageHandler('showLoading', function(msg) {
+
+    var chart = $("#" + msg.id).highcharts();
+
+    if (msg.showLoading) {
+
+      chart.showLoading();
+
+    } else {
+
+      chart.hideLoading();
+
+    }
+
+  });
+
+  Shiny.addCustomMessageHandler('addPoint', function(msg) {
+
+    var chart = $("#" + msg.id).highcharts();
+
+    chart.get(msg.idSeries).addPoint(msg.point, msg.redraw, msg.shift, msg.animation);
+
+  });
+
+  Shiny.addCustomMessageHandler('removePoint', function(msg) {
+
+    var chart = $("#" + msg.id).highcharts();
+
+    chart.get(msg.idSeries).removePoint(msg.i, msg.redraw);
+
+  });
+
+  Shiny.addCustomMessageHandler('setData', function(msg) {
+
+    var chart = $("#" + msg.id).highcharts();
+
+    if (typeof chart != 'undefined') {
+
+      chart.series[msg.serie].setData(
+        data = msg.data,
+        redraw = msg.redraw,
+        animation = msg.animation,
+        updatePoints = msg.updatePoints
+        );
+
+    }
+
+  });
+
+  Shiny.addCustomMessageHandler('redraw', function(msg) {
+
+    var chart = $("#" + msg.id).highcharts();
+
+    if (typeof chart != 'undefined') {
+
+      chart.redraw();
+
+    }
+
+  });
+
+}