xtable html links

Hi,

I was trying to get hyperlinks using xtable, but couldn't get the hyperlinks to function properly. For example, if I use

## Try to link NY times website to every figure in column 4
mat <- matrix(1:43,6,5)
mat[,5] <- "http://nytimes.com"

for(i in 1:nrow(mat)){
   strr <-  paste('<a href="', mat[i,5],'">', mat[i,4], '</a>', sep='')
   mat[i,4] <- strr
}
mat2 <- mat[,1:4]

caption = 'test'
mx <- xtable(mat2,caption=caption)
tt = print(mx, type="html",include.rownames=F)
tt1 <- gsub('lt /a','lt/a',tt,fixed=T)
tt2 <- gsub('lt a','lta',tt1,fixed=T)

write.table(tt2,'test.html',quote=F)

However, if I open 'test.html' in IE, the hyperlinks don't seem to work. What am I doing wrong?

thanks.




       [[alternative HTML version deleted]]