在格式表(R)中使用逗号功能

时间:2019-06-12 07:00:06

标签: r shiny formattable

我正在尝试在闪亮的表格输出中使用千位分隔符。 以下是我的代码:

UI <- dashboardPage(     
  dashboardBody(        
    fluidPage(          
      selectInput(inputId = "TableName",
                  label = "Select Data of Interest",
                  choices = list.files(path = "CSVData", pattern = "AMD_")),          
      uiOutput("Channel"),    
      formattableOutput("ResultTable")         
    )
  )
)

Server <- function(input, output){      
  output$Channel <- renderUI({        
    df <- read.csv(paste("Pathname/",input$TableName, sep = ""))        
    selectInput(inputId = "ChannelSelect",
                label = "Select Channel:",
                choices = unique(df) %>% select(Channel))),
                selected = NULL, multiple = FALSE)        
  })

  output$ResultTable <- renderFormattable({

    df <- read.csv(paste("CSVData/",input$TableName, sep = ""))
    ChanSelect <- input$ChannelSelect    
    A1 <- df %>% filter(if(ChanSelect != "All") (Channel == ChanSelect) else TRUE) %>%
      select(Channel, Amount)        
    formattable(A1, list(
      `Amount` = comma(`Amount`, digits = 0, format = "f", big.mark = ","
    ))        
  })      
}    

我的df多种多样,但都采用以下格式:

data.frame("Channel" = c("A", "B", "C", "D"),
           "Amount" = c(1000000, 2000000, 3000000, 4000000 ))

问题是格式表部分不起作用。我不知道如何使用comma()正确输入函数formattable

2 个答案:

答案 0 :(得分:1)

有两种方法可以做到这一点:

1.创建自定义函数

mycomma <- function(digits = 0) {
      formatter("span", x ~ comma(x, digits = digits)
      )
    }

用于单个命名列:

formattable(df, list(`Account` = mycomma(digits=0))
  )

用于多列:

formattable(df, 
            list(area(col = c(3:6)) ~ mycomma(digits=0))
  )

2.每次都传递formattable函数

formattable(df, list(`Account` = formatter("span", x ~ comma(x, digits = 0))
      )

注意:您可以轻松创建自定义函数,该函数可以传递不同的函数,例如百分比或会计。赞一个

mysimpleformat <- function(fun = "comma", digits = 0) {
  fun <- match.fun(fun)
  formatter("span", x ~ fun(x, digits = digits)
  )
}

答案 1 :(得分:0)

如果您只是想将成千上万个标记添加到Amount列中,则可以按照以下步骤进行操作:

df <- data.frame("Channel" = c("A", "B", "C", "D"),
                 "Amount" = c(1000000, 2000000, 3000000, 4000000 ))
df$Amount <- format(as.integer(df$Amount), big.mark=",")