changeset 2:2ac39b9765ba draft

Uploaded

Binary file promap/last.dump.rda has changed

--- a/promap/promap.R	Wed Apr 18 11:26:25 2018 -0400
+++ b/promap/promap.R	Thu Apr 19 12:49:56 2018 -0400
@@ -1,21 +1,38 @@
+options(error = quote({
+  dump.frames(to.file=T, dumpto='last.dump')
+  load('last.dump.rda')
+  print(last.dump)
+  q()
+}))
+
 #symdiff <- function( x, y) { setdiff( union(x, y), intersect(x, y))}
 
+options(error = quote({dump.frames(to.file=TRUE); q()}))
+
 CoulambicOutput<-"CoulambicOutput.csv"
 LJoutput<-"LJOutput.csv"
 
 args <- commandArgs()
+#print(args)
 
 myinput <- gsub("--in=", "", args[grepl("--in=", args)])
+# #input<-list(read.fwf(file = "1-finedata.txt", widths=c(4,5,4,6,6,4,5,6,12,12,12)),read.fwf(file = "2-finedata.txt", widths=c(4,5,4,6,6,4,5,6,12,12,12)))
+input<-lapply(myinput, function(x){read.fwf(file = x, widths=c(4,5,4,6,6,4,5,6,12,12,12))})
+
+#print("hi")
+
+#myinput <- gsub("--in=", "", args[grepl("--in=", args)])
 #input<-list(read.fwf(file = "1-finedata.txt", widths=c(4,5,4,6,6,4,5,6,12,12,12)),read.fwf(file = "2-finedata.txt", widths=c(4,5,4,6,6,4,5,6,12,12,12)))
-input<-lapply(myinput, function(x){read.fwf(file = x, widths=c(4,5,4,6,6,4,5,6,12,12,12))})
+#input<-lapply(args[6:7], function(x){read.fwf(file = x, widths=c(4,5,4,6,6,4,5,6,12,12,12))})
+
 
 if(1==0){
 #theinputs<-lapply(input,function(x){as.data.frame(read.fwf(file=x,widths=c(4,5,4,6,6,4,5,6,12,12,12)))})
 
 
 #promap org
-Finedata1<-read.fwf(file = "testytestytest.txt", widths=c(4,5,4,6,6,4,5,6,12,12,12))
-Finedata2<-read.fwf(file = "testytestytest.txt", widths=c(4,5,4,6,6,4,5,6,12,12,12))
+# Finedata1<-read.fwf(file = "testytestytest.txt", widths=c(4,5,4,6,6,4,5,6,12,12,12))
+# Finedata2<-read.fwf(file = "testytestytest.txt", widths=c(4,5,4,6,6,4,5,6,12,12,12))
 #View(Finedata1)
 #these text files unfortunately since read at fixed width they include factors and blank spaces
 #this code