comparison csv2rdata.R @ 3:d98e0124cb31 draft default tip

planemo upload commit ed84801645679d29264a5946c6e7669d26c07f39-dirty

2:85944f34e129

  if(levels(file[,col])[1] != ""){
    dataX <- file[,1:(col-1)]
    dataY <- file[,col]
    stopifnot(nrow(dataX) == length(dataY))
    saveRDS(dataX,dataY,file=arg2)
  }
  else{
     cat("the Outcome column has less number of entry than number of compounds.please check input file.\n",file=stderr())
  }
  }

3:d98e0124cb31

  if(levels(file[,col])[1] != ""){
    dataX <- file[,1:(col-1)]
    dataY <- file[,col]
    stopifnot(nrow(dataX) == length(dataY))
    save(dataX,dataY,file=arg2)
  }
  else{
     cat("the Outcome column has less number of entry than number of compounds.please check input file.\n",file=stderr())
  }
  }