[CHNOSZ-commits] r6 - pkg/R

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

Author: jedick
Date: 2012-08-29 16:18:01 +0200 (Wed, 29 Aug 2012)
New Revision: 6

Modified:
   pkg/R/util.data.R
Log:
modify RH2obigt() to use stringsAsFactors=FALSE, so it works nicely with mod.obigt()


Modified: pkg/R/util.data.R
===================================================================
--- pkg/R/util.data.R	2012-08-29 13:47:35 UTC (rev 5)
+++ pkg/R/util.data.R	2012-08-29 14:18:01 UTC (rev 6)
@@ -480,7 +480,8 @@
     if(!identical(formula, thisdat$formula)) 
       stop(paste("formula", formula, "of", comate.dat[i], "(from groups) is not identical to", thisdat$formula, "(listed in file)" ))
     # build the front part of obigt data frame
-    thishead <- data.frame(name=thisdat$compound, abbrv=NA, formula=formula, state=thisdat$state, ref1=NA, ref2=NA, date=today())
+    thishead <- data.frame(name=thisdat$compound, abbrv=NA, formula=formula, state=thisdat$state, 
+      ref1=NA, ref2=NA, date=today(), stringsAsFactors=FALSE)
     # insert the result into the output
     out <- rbind(out, cbind(thishead, thiseos))
   }