SCM

SCM Repository

[batman] Diff of /pkg/batman/R/batman.R
ViewVC logotype

Diff of /pkg/batman/R/batman.R

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 101, Tue Oct 23 13:28:09 2012 UTC revision 102, Tue Nov 20 19:20:27 2012 UTC
# Line 25  Line 25 
25    dir6<-paste(dirA[2],"/chemShiftPerSpec.dat",sep="")    dir6<-paste(dirA[2],"/chemShiftPerSpec.dat",sep="")
26    dir7<-paste(dirA[4],"/",sep = "")    dir7<-paste(dirA[4],"/",sep = "")
27    
28      checkBatmanOptions(dir1)
29    
30    dirctime<-paste(dirA[3],"/",ctime,sep="")    dirctime<-paste(dirA[3],"/",ctime,sep="")
31    if(!file.exists(dirctime)) {    if(!file.exists(dirctime)) {
32      dir.create(dirctime)      dir.create(dirctime)
# Line 43  Line 45 
45    dirRU<-paste(dirA[2],"/multi_data_user.csv",sep="")    dirRU<-paste(dirA[2],"/multi_data_user.csv",sep="")
46    
47    ## read in batman optitons    ## read in batman optitons
   con  <- file(dir1, open = "r")  
48    nlines <-dim(read.table(dir1,sep="\n",comment.char = ""))[1]    nlines <-dim(read.table(dir1,sep="\n",comment.char = ""))[1]
49      con  <- file(dir1, open = "r")
50    oneLine <- readLines(con, n = nlines, warn = FALSE)    oneLine <- readLines(con, n = nlines, warn = FALSE)
51    fL<-substr(oneLine,1,1)    fL<-substr(oneLine,1,1)
52    nL<-which(is.na(match(fL,"%")))    nL<-which(is.na(match(fL,"%")))

Legend:
Removed from v.101  
changed lines
  Added in v.102

root@r-forge.r-project.org
ViewVC Help
Powered by ViewVC 1.0.0  
Thanks to:
Vienna University of Economics and Business Powered By FusionForge