PRO cit_chianti_html, ads_data, outdir=outdir ;+ ; NAME: ; CIT_CHIANTI_HTML ; ; PURPOSE: ; Creates html files containing the CHIANTI citation information ; that are displayed on the CHIANTI web site. ; ; CATEGORY: ; CHIANTI; citations. ; ; CALLING SEQUENCE: ; CIT_CHIANTI_HTML ; ; INPUTS: ; None. ; ; OPTIONAL INPUTS: ; Outdir: Specifies where the three output files will be written. ; ; OUTPUTS: ; Creates the webpages 'chianti_ADS.html' and ; 'citation_list.html', and the image 'chianti_cit_year.png'. If ; the environment variable $CHIANTI_WEB is defined then the files ; go there. If OUTDIR= is specified, then they go there. Otherwise ; they go in the working directory. ; ; OPTIONAL OUTPUTS: ; Ads_Data: The structure containing information about all the ; papers that cite the CHIANTI papers. The format is ; that produced by CIT_GET_ADS_ENTRY. ; ; CALLS: ; CIT_CHIANTI_CITING_PAPERS, CIT_CHIANTI_INFO, CH_PLOT_CIT_YEAR, ; CIT_INSTR_ALL_PAPERS ; ; EXAMPLE: ; IDL> cit_chianti_html ; IDL> cit_chianti_html, ads_data ; IDL> cit_chianti_html, outdir='~/my_dir' ; ; MODIFICATION HISTORY: ; Ver.1, 17-Sep-2019, Peter Young ; Ver.2, 01-Dec-2020, Peter Young ; Now writes files to $CHIANTI_WEB (if defined) by ; default. Otherwise written to working directory. ;- IF n_elements(outdir) EQ 0 THEN BEGIN outdir=getenv('CHIANTI_WEB') IF outdir EQ '' THEN BEGIN print,'% CIT_CHIANTI_HTML: the environment variable $CHIANTI_WEB is not defined. Files will be written ' print,' to the current working directory.' ENDIF ELSE BEGIN print,'% CIT_CHIANTI_HTML: files will be written to '+expand_path(outdir)+'.' ENDELSE ENDIF ELSE BEGIN chck=file_info(outdir) IF chck.exists EQ 1 THEN BEGIN print,'% CIT_CHIANTI_HTML: outdir does not exist so it will be created.' file_mkdir,outdir ENDIF ENDELSE ads_data=cit_chianti_citing_papers(tot_cit=tot_cit) d=cit_chianti_info(ads_data) htmlfile=concat_dir(outdir,'chianti_ADS.html') openw,lun,htmlfile,/get_lun n=n_elements(ads_data) strn=strtrim(string(format='(i6)',tot_cit),2) IF keyword_set(nrl) THEN add_str=' target="_blank"' ELSE add_str='' printf,lun,' ' ; ; The line below makes sure that the characters in the strings are ; printed correctly. ; printf,lun,'' ; printf,lun,'' printf,lun,'' printf,lun,'Citations to CHIANTI papers' printf,lun,'' printf,lun,'' printf,lun,'' printf,lun,'' printf,lun,'' printf,lun,'' printf,lun,'

' printf,lun,'

Citations to the CHIANTI papers

' printf,lun,'

' printf,lun,'One measure of the success of CHIANTI is through the number of citations to the CHIANTI papers in the scientific literature. The information below has been extracted from the ADS abstracts service.' printf,lun,'

Total number of citations to CHIANTI papers: '+strn+'*. ' printf,lun,'

Full list of papers that cite the CHIANTI papers.' w=ch_plot_cit_year(d.year,d.npapers,/buffer,/no_scale) pngfile=concat_dir(outdir,'chianti_cit_year.png') w.save,pngfile,resolution=96 w.close printf,lun,'

Number of citations per year to the CHIANTI papers:

' printf,lun,'

Summary of the major refereed journals that the citing papers have appeared in:' printf,lun,'

' printf,lun,''+ $ '' nj=n_elements(d.abblist) other=0 FOR i=0,nj-1 DO BEGIN IF d.abb_num[i] GT 0 THEN BEGIN printf,lun,'' ENDIF ENDFOR printf,lun,'
Journal No. of papers*
'+d.jnames[i]+' '+string(d.abb_num[i])+'

' ; ; Now add table with affiliations for first authors ; n=n_elements(ads_data) country=strarr(n) FOR i=0,n-1 DO BEGIN IF ads_data[i].country.count() GT 0 THEN country[i]=ads_data[i].country[0] ENDFOR k=where(country NE '',nk) IF nk NE 0 THEN BEGIN country=country[k] c=country[uniq(country,sort(country))] nc=n_elements(c) c_num=intarr(nc) ; printf,lun,'

This table shows the location of the first authors of the papers. The information is extracted from the affiliations of the authors stored in ADS. Of the '+trim(n)+' papers, '+trim(nk)+' affiliations could be extracted. There are '+trim(nc)+' countries in the list.

' printf,lun,'

' printf,lun,'' FOR i=0,nc-1 DO BEGIN k=where(country EQ c[i],nk) c_num[i]=nk ENDFOR i=reverse(sort(c_num)) c=c[i] c_num=c_num[i] FOR i=0,nc-1 DO BEGIN printf,lun,'' ENDFOR printf,lun,'
Country First author papers
'+c[i]+' '+trim(c_num[i])+'

' ENDIF printf,lun,'

*- Some papers cite more than one of the CHIANTI papers, thus leading to multiple citations from a single paper. The columns above give the number of citing papers. The total number of such papers is '+trim(n)+'.' printf,lun,'

' printf,lun,''+strtrim(systime(),2)+'' printf,lun,'

' free_lun,lun ;---------------- ; WRITE OUT FILE LISTING ALL CITING PAPERS ; - I'm using code I wrote for writing out publication lists ; for missions and instruments. ; data_str={instr_name: 'CHIANTI'} htmlfile=concat_dir(outdir,'citation_list.html') cit_instr_all_papers,ads_data,htmlfile=htmlfile,data_str=data_str, /add_year END