[Rd] justify hard coded in format.ftable

[SOEIRO Thomas]

Dear all,

justify argument is hard coded in format.ftable:

cbind(apply(LABS, 2L, format, justify = "left"),
      apply(DATA, 2L, format, justify = "right"))

It would be useful to have the possibility to modify the argument between c("left", "right", "centre", "none") as in format.default.

The lines could be changed to:

if(length(justify) != 2)
  stop("justify must be length 2")
cbind(apply(LABS, 2L, format, justify = justify[1]),
      apply(DATA, 2L, format, justify = justify[2]))

The argument justify could defaults to c("left", "right") for backward compatibility.

It could then allow:
ftab <- ftable(wool + tension ~ breaks, warpbreaks)
format.ftable(ftab, justify = c("none", "none"))

Best regards,

Thomas