[Sciviews-commits] r336 - pkg/svUnit/R

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

Author: mariotomo
Date: 2010-10-26 11:15:58 +0200 (Tue, 26 Oct 2010)
New Revision: 336

Modified:
   pkg/svUnit/R/svTestData.R
Log:
fixing an own silly mistake: I was replacing all ampersands after introducing them to represent entities.


Modified: pkg/svUnit/R/svTestData.R
===================================================================
--- pkg/svUnit/R/svTestData.R	2010-10-25 09:53:08 UTC (rev 335)
+++ pkg/svUnit/R/svTestData.R	2010-10-26 09:15:58 UTC (rev 336)
@@ -91,11 +91,12 @@
     return(invisible(FALSE))
 
   toValidXmlString <- function(s) {
+    s <- gsub("&", "&amp;", s)
     s <- gsub("<", "&lt;", s)
     s <- gsub(">", "&gt;", s)
     s <- gsub('"', "&quot;", s)
     s <- gsub("'", "&apos;", s)
-    gsub("&", "&amp;", s)
+    s
   }
 
   basename <- function(s) sub(".*/", "", s)