[R] "latex" in Hmisc: cell formating

[Tao Shi]

Hi Dieter,

Thank you for pointing out the website.  From the website it seems the bug has been fixed early 2008 (see http://biostat.mc.vanderbilt.edu/trac/Hmisc/changeset/582 ).

So I upgraded my Hmisc package to 3.4-4, which was published on 11/3/2008 and hoped it would work.  However, the problem persisted.


...Tao



Tao Shi  hotmail.com> writes:

> ## I'm using R 2.8.0 on WinXP, Hmisc_3.4-3
>
>> table1 <- matrix(10, 180,7)
>> cell.format <- matrix("", ncol=7, nrow=180)
>> cell.format[c(seq(3,180,6),seq(4,180,6)),] <- "color{red}"
>> cell.format[c(seq(5,180,6),seq(6,180,6)),] <- "color{green}"
>>
>> latex(table1, where='htbp', long=TRUE,  lines.page=1000,  size="scriptsize",
> +     cgroup=c("group1","group2"), n.cgroup=c(6,1),
> +     rgroup=c("n=1","n=5","n=10","n=20","n=50"), n.rgroup=rep(36,5),
> +       cellTexCmds=cell.format, numeric.dollar = FALSE)
> Error in cat(rcellTexCmds[i, colNum], " ", cx[i, colNum], file = file,  :
>   subscript out of bounds
>>
>>
> ## if I remove the column name grouping, it works fine!
> ##
>> latex(table1, where='htbp', long=TRUE,  lines.page=1000,  size="scriptsize",
> +     #cgroup=c("group1","group2"), n.cgroup=c(6,1),
> +     rgroup=c("n=1","n=5","n=10","n=20","n=50"), n.rgroup=rep(36,5),
> +       cellTexCmds=cell.format, numeric.dollar = FALSE)

The example you posted is good, but it is more helpful to post the code,
not the pasted result, so that trying you example does not require
manual editing.

I had reported a similar case a year ago; see below. Maybe you should
post it at:

http://biostat.mc.vanderbilt.edu/trac/Hmisc/

#
library(Hmisc)
sessionInfo()

x <- matrix(1:12, nrow=2, dimnames=list(c('a','p'),
  letters[1:6]))
cellTex = matrix(rep("", NROW(x) * NCOL(x)),  nrow=NROW(x))

cellTex[1,1] <- "cellcolor[gray]{0.9}"

# works ok
p = latex(x,file="a.tex",
          cellTexCmds = cellTex) # ok

# Works ok
p = latex(x,file="a.tex",
    cgroup =  c("a","b","c"),n.cgroup=c(2,2,2)
     )

# Fails with a error message "subscript out of bounds"
p = latex(x, file="a.tex",
    cellTexCmds = cellTex,
    cgroup =  c("a","b","c"),n.cgroup=c(2,2,2)
     )