plotVar multiblock

(from Benoit) Hi Kim Anh,

There is a mistake in plotVar.

Could you change

col = unlist(lapply(1:length(cord.X), function(x) { rep(color.jet(x), sum(sapply(cord.X[x], nrow))) }))

into

  col = unlist(lapply(1:length(cord.X), function(x) {
    rep(color.jet(length(cord.X))[x], sum(sapply(cord.X[x], nrow)))
  }))

?

The bug occurs when you have to deal with more than 10 blocks. Probably no one works with more than 10 blocks except me...

Of course my solution needs to be checked.

Thank you. Have a good day.

Comments (3)