Jack Tanner wrote:
> a <- sqlQuery(irrdb, "select count(field) from mytable where field = 1") > print(a) count(field) 1 8 > paste(a) [1] "as.integer(8)"
Why the as.integer() representation? I later pass the result into this write.html.table(), and what I get is rows of as.integer()... when all I want is the integer itself.
as.integer(31) as.integer(21) as.integer(34) as.integer(86) as.integer(7) as.integer(6) as.integer(15) as.integer(28)
write.html.table <- function(t, file= "", capt= "The Default Title", append = FALSE) { head <- paste("<table>\n<caption>", capt, "</caption>\n") cat(head, file= file, append= append) if (is.null(rownames(t))) { rownames(t) <- rep("", nrow(t)) } tp <- rbind(c("<tr><td></td>", colnames(t)), cbind(unlist(lapply(rownames(t), function(x) { paste("<tr><td>", x)})), t)) write.table(tp, sep= "<td>", file= file, , eol= "</tr>\n", row.names=FALSE, col.names=FALSE, append=TRUE, quote=FALSE) cat("</tr>\n</table>\n", file= file, append= TRUE) }
Not sure about what sqlQuery is doing but you can wrap your return value in a eval(parse(text = x)) to evaluate the "as.integer(.)" string. As in,
a <- eval(parse(text = a))
HTH, --sundar
______________________________________________ [EMAIL PROTECTED] mailing list https://www.stat.math.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html
