[Ade4-commits] r503 - tools/updateweb

[noreply at r-forge.r-project.org]

Author: sdray
Date: 2010-01-21 17:09:11 +0100 (Thu, 21 Jan 2010)
New Revision: 503

Added:
   tools/updateweb/plotcitation.Rin
Modified:
   tools/updateweb/README
Log:
Add information and scripts to update the citation pages of the website

Modified: tools/updateweb/README
===================================================================
--- tools/updateweb/README	2010-01-21 15:06:36 UTC (rev 502)
+++ tools/updateweb/README	2010-01-21 16:09:11 UTC (rev 503)
@@ -64,3 +64,26 @@
 cd /htdocs/ADE-4/
 cp -r /mnt/users/$LOGIN/ade4update/changelog.php .
 
+
+##############################################
+########## Update the Citation page ##########
+##############################################
+
+########## 1) In WoS, use 'Cited Reference Search' with Cited Author='dray s or chessel d' and Cited Work='STAT COMPUT OR R NEWS OR J STAT SOFTW' and Cited Year(s)='1997 or 2004 or 2007'
+
+########## 2) Select the reference and Finish the search 
+
+########## 3) Export all the results (Authors, Title, Source) in BibTex Format (say ade4ref.bib) 
+
+########## 4) Convert the file ade4ref.bib into html by:
+bibtex2html -nobibsource -nokeywords -nodoc --sort-by-date -r ade4ref.bib
+
+########## 5) Obtain the graphic by running
+R CMD BATCH plotcitation.Rin
+
+########## 6) Login as the wwwadmin and update the date and the number of citations in citations.php and citationsfr.php 
+
+########## 7) Copy the new image 'citationYear.png' (in folder pictures) and the new file 'ade4ref.html' on the web server 
+scp ade4ref.html wwwadmin at pbil:htdocs/ADE-4/w
+scp citationYear.png wwwadmin at pbil:htdocs/ADE-4/pictures/
+

Added: tools/updateweb/plotcitation.Rin
===================================================================
--- tools/updateweb/plotcitation.Rin	                        (rev 0)
+++ tools/updateweb/plotcitation.Rin	2010-01-21 16:09:11 UTC (rev 503)
@@ -0,0 +1,7 @@
+listref <- readLines("ade4ref.bib")
+year <- listref[grep("Year = ",listref)]
+year.clean <- gsub("\\}\\},","",gsub("Year = \\{\\{","",year))
+png("citationYear.png", width = 1000, height = 400)
+barplot(table(year.clean),ylab='Number of citations', xlab = 'Year', col ='steelblue', cex.lab = 2, cex.axis=1.5)
+dev.off()
+