formattedtable.R

dat <- data.frame(Product=c("Milk", "Butter", "Yoghurt", "<b>Sum</b>"),
                  Revenue=c(2230, 43908, 231, 46369))
dat <- within(dat, {'% of Revenue' <- c(Revenue / Revenue[4])})

library(googleVis)
tbl <- gvisTable(dat, options=list(width=300, height=150),
                 formats=list(Revenue="#,###", '% of Revenue'='#.#%'),
                 chartid="formattedtable")
plot(tbl)