1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
shinyjs.enrichr = function(params) {
	var defaultParams = {
	list : null,
    popup : true,
    description : 'MyDescription'
  };
	options = shinyjs.getParams(params, defaultParams);
	
	alert('Sending gene list to Enrich web page. \nNote 1: if the page is blank at the first submission, please click again on `Submit to Enrichr` button. \nNote 2: Allow browser pop-up window when prompted ');
	

	if (typeof options.list === 'undefined') {
        alert('No genes defined.');
    }
    var description  = options.description || '',
    	popup = options.popup || true,
    	form = document.createElement('form'),
    	listField = document.createElement('input'),
    	descField = document.createElement('input');
  
    form.setAttribute('method', 'post');
    form.setAttribute('action', 'https://maayanlab.cloud/Enrichr/enrich');
    if (popup) {
        form.setAttribute('target', '_blank');
    }
    form.setAttribute('enctype', 'multipart/form-data');

    listField.setAttribute('type', 'hidden');
    listField.setAttribute('name', 'list');
    listField.setAttribute('value', options.list);
    form.appendChild(listField);

    descField.setAttribute('type', 'hidden');
    descField.setAttribute('name', 'description');
    descField.setAttribute('value', description);
    form.appendChild(descField);

    document.body.appendChild(form);
    form.submit();
    document.body.removeChild(form);
}