Optimization Issues

[brodieG]

The following should not be as slow as it is:

v1 <- 1:1e5
v2 <- c(1e5 + 1, v1[-c(4:7, 1e2, 1e3, 1e4)])
system.time(diffPrint(v1, v2, context=1, format="raw"))
#   user  system elapsed 
#11.760   2.520  14.307 
system.time(ses(as.character(v1), as.character(v2)))
#   user  system elapsed 
#  0.112   0.005   0.116 

Most likely due to alignment.

[brodieG]

Actually, a big part of this is just the capture.output directly to a vector. The rest is mostly regular expression related things that will be difficult to optimize.