[CHNOSZ-commits] r14 - pkg/Rpad/R

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

Author: jedick
Date: 2012-09-21 14:54:52 +0200 (Fri, 21 Sep 2012)
New Revision: 14

Modified:
   pkg/Rpad/R/HtmlTree.R
Log:
Rpad: add return statement to HTMLargs()


Modified: pkg/Rpad/R/HtmlTree.R
===================================================================
--- pkg/Rpad/R/HtmlTree.R	2012-09-21 12:49:36 UTC (rev 13)
+++ pkg/Rpad/R/HtmlTree.R	2012-09-21 12:54:52 UTC (rev 14)
@@ -46,6 +46,7 @@
   if (length(x) > 0) str <- " " else str <- ""
   for (i in seq(along = x))
     str <- paste(str, names[i], "=", jsQuote(x[[i]]), " ", sep = "")
+  return(str)
 }
 
 "print.HtmlTree" <- function(x, file = "", ...)