/*
Author: Franck Soubès
Bioinformatics Master Degree - University of Bordeaux, France
Link: https://github.com/GeT-TRiX/MA_Trix_App/
Where: GET-TRiX's facility
Application: MATRiX is a shiny application for Mining and functional Analysis of TRanscriptomics data
Licence: GPL-3.0
*/


$(document).ready(function () {

var xTitle = "top genes enriched";

var defaultOptions = {


    series: null,

    chart: {
	  zoomType: "xy",
	  reflow: true, //width: 1100,
	  height: 600,
	  renderTo: "highChart",
	  type: 'bubble'

  },

  dom: "highChart",
  id: "highChart",

  exporting: {enabled: true},
  credits: {href: null, text: null},


   legend: {
        enabled: true
    },

    title: {
        text: null
    },

    subtitle: {
        text: 'Source: <a href="http://www.euromonitor.com/">ok</a> and <a href="https://data.oecd.org/">OECD</a>'
    },

    xAxis: {
        gridLineWidth: 1,
        title: {
            text: 'Fold enrichment'
        },
        labels: {
            format: '{value}'
        }

    },

    yAxis: {
        startOnTick: false,
        endOnTick: false,
        reversed:true,
        tickInterval: 1,
        title: {
            text: 'Fold enrichment'
        },

        labels: {
               formatter: function () {
            if(this.value === 0){
            return "";
            }
            else{
                return 'top' + this.value ;
              }
            },
            //format: 'top {value}',
            step:1,
        },
        maxPadding: 0.2,

        plotLines: [{
            color: 'black',
            dashStyle: 'dot',
            width: 1,
            value: 0,
            label: {
                align: 'right',
                style: {
                    fontStyle: 'italic'
                },
                x: -10
            },
            zIndex: 3
        }]
    },

    tooltip: {

        useHTML: true,
        headerFormat: '<table>',
        pointFormat: '<tr><th colspan="2"><h3>{point.term}</h3></th></tr>' +
                     '<tr><th>x value:</th><td>{point.x:,.1f}</td></tr>' +
                     '<tr><th>Top:</th><td>{point.y:,.0f}</td></tr>' +
                    '<tr><th> adj.pval:</th><td>{point.pvalue}</td></tr>' +
                    '<tr><th> Fold enrichment:</th><td>{point.FE}</td></tr>' +
                    '<tr><th>Percentage of hits:</th><td>{point.z:,.2f}%</td></tr>',
        footerFormat: '</table>',
        followPointer: true
    },

    plotOptions: {
        series: {
            stickyTracking: false,
            dataLabels: {
                enabled: true,
                format: '{point.GO}',
                color: 'black'
            }
        }
    },


  };


  function updatechart() {

  Shiny.addCustomMessageHandler("updateVariable", function(newData) {

  var newOptions = defaultOptions;
  newOptions.subtitle.text = newData.min;
  newOptions.subtitle.text = newData.max;
  newOptions.series = newData.series; //update the series data
  newOptions.subtitle.text = newData.legend;
  newOptions.yAxis.title.text = newData.title;
  newOptions.xAxis.title.text = newData.xaxis;


  var message = Shiny.addCustomMessageHandler("handler1", function (message){
  newOptions.plotOptions.series.dataLabels.enabled = message;

  var chartObj = new Highcharts.Chart(newOptions);

  Shiny.addCustomMessageHandler("iscollapse", function(collapsestate) {
    var chartObj = new Highcharts.Chart(newOptions);
    chartObj.reflow();
      });

    });
  });

  }

  var printUpdate = function () {
        $('#container').highcharts().reflow();
  };

  if (window.matchMedia) {
    var mediaQueryList = window.matchMedia('print');
    mediaQueryList.addListener(function (mql) {
    printUpdate();
      });
    }


updatechart();

});