diff options
| author | ranke <ranke@d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc> | 2007-11-23 16:19:08 +0000 |
|---|---|---|
| committer | ranke <ranke@d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc> | 2007-11-23 16:19:08 +0000 |
| commit | 1066c87b174f2b3df19e54adee1ee435021441c9 (patch) | |
| tree | 26003c9a4a333ecdc99ef6773a6df96572f51c11 /R/checkexperiment.R | |
| parent | e6b9164327957c56de221889e396dcbab6fddd31 (diff) | |
- Releasable version for CRAN
- Changed usage of cat() to message() because the latter does not interfere
with Sweave. Left cat() in checkexperiment.R and checksubstance.R
git-svn-id: http://kriemhild.uft.uni-bremen.de/svn/drfit@92 d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc
Diffstat (limited to 'R/checkexperiment.R')
| -rw-r--r-- | R/checkexperiment.R | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/R/checkexperiment.R b/R/checkexperiment.R index 941856b..58fecad 100644 --- a/R/checkexperiment.R +++ b/R/checkexperiment.R @@ -11,9 +11,16 @@ checkexperiment <- function(id, db = "ecotox", endpoint = "%") library(RODBC) channel <- odbcConnect(db,uid="cytotox",pwd="cytotox",case="tolower") + responsename = as.character(databases[db,1]) testtype = as.character(databases[db,2]) exptype = as.character(databases[db,3]) + + exptable <- paste(exptype, "s", sep="") + commentquery <- paste("SELECT comment FROM ", exptable , + " WHERE ", exptype, " = ", id) + commentdata <- sqlQuery(channel,commentquery) + comment <- as.character(commentdata[[1]]) expquery <- paste("SELECT experimentator,substance, ", testtype, ",conc,unit,", responsename, ",performed,ok", @@ -83,7 +90,8 @@ checkexperiment <- function(id, db = "ecotox", endpoint = "%") "\tPerformed on:\t\t",levels(expdata$performed),"\n", "\tSubstance(s):\t\t",levels(expdata$substance),"\n", "\tConcentration unit(s):\t",levels(expdata$unit),"\n", - "\tOK:\t\t\t",levels(expdata$ok),"\n", + "\tComment:\t\t",comment,"\n", + "\tOK Levels:\t\t\t",levels(expdata$ok),"\n", "\t\tNumber \tMean \tStd. Dev. \t% Std. Dev.\n", "\tblind\t",numberOfBlinds,"\t",meanOfBlinds,"\t",stdOfBlinds,"\n", "\tcontrol\t",numberOfControls,"\t",meanOfControls,"\t", |