在gvisTable中舍入数字

时间:2015-01-12 11:41:45

标签: shiny

我是googleVis的新用户,我根本无法将我的数字汇总到最多2位小数。任何帮助将不胜感激。

目前我正在使用代码

gvisTable(round(data_frame),2)

我试过了

gvisTable(data_frame, formats=list(data_frame="##.##"))

但没有帮助

1 个答案:

答案 0 :(得分:1)

您必须指定要舍入的列。在下面的例子中,我围绕着“收入”#39;柱。您可以查看格式herehere

我的例子如下:

rm(list = ls())
library(shiny)
library(googleVis)

# Sample data
dat <- data.frame(Product=c("Milk", "Butter", "Yoghurt", "Total"),Revenue=c(2230.32787, 43908.123432, 231.5343, 46369.1112))

ui = fluidPage(htmlOutput("my_table"))
server = function(input, output) {
  output$my_table <- renderGvis({gvisTable(dat, options=list(width=300, height=150),formats=list('Revenue'='##.##'))})}
runApp(list(ui = ui, server = server))