我不确定您到目前为止在formattable上尝试过什么，但是您应该可以在闪亮的应用程序中与DT一起使用它。

这是一个可以尝试的简单示例。这使mpg列成为一个百分比。另外，如果为count列着色为绿色。

其他vignettes可用于带有formattable软件包的其他选项。

output$Summary <- renderDataTable({
  my_data <- mtcars %>% 
    filter(cyl==input$cyl)  %>% 
    group_by(gear) %>%
    summarise(mpg = median(mpg),count = n())  %>% 
    ungroup() %>%
    arrange(desc(count))

  # Make percent,for example
  my_data$mpg <- percent(my_data$mpg)

  # Return formattable datatable
  return(
    as.datatable(
      formattable(
        my_data,list(
          count = color_tile("transparent","green")
        )
      )
    )
  )
})

要完成Ben的回答，即使您说要使用formattable，我认为DT中也有足够的选项可以按照您想要的方式自定义表格。

这是您的示例（由于未指定单元格的格式，因此是随机定制的）：

library(shiny)
library(dplyr)
library(DT)

ui <- fluidPage(

  titlePanel("mtcars"),sidebarLayout(

    sidebarPanel(

      selectInput("cyl","cyl:",c(unique(as.character(mtcars$cyl)))),selectInput("gear","gear:",c("All",unique(as.character(mtcars$gear)))),width=2),mainPanel(
      tabsetPanel(
        id = 'dataset',tabPanel("Summary",DT::dataTableOutput("Summary")),tabPanel("Detail",DT::dataTableOutput("Detail"))))))

server <- function(input,output) {

  output$Detail <- renderDataTable(datatable({
    data <- mtcars
    if (input$cyl != "All") {
      data <- data[data$cyl == input$cyl,]
    }
    if (input$gear != "All") {
      data <- data[data$gear == input$gear,]
    }
    data
  }))

  output$Summary <- renderDataTable({

    your_data <- mtcars %>% 
      filter(cyl==input$cyl)  %>% 
      group_by(gear) %>%
      summarise(mpg = median(mpg),count = n())  %>% 
      ungroup() %>%
      arrange(desc(count))

    datatable(your_data) %>%
      formatPercentage(columns = c("mpg","gear")) %>%
      formatRound(columns = c("count"),digits = 3) %>%
      formatStyle(columns = "mpg",valueColumns = "gear",backgroundColor = styleEqual(c(3,4,5),c("red","blue","green")))
  })}

shinyApp(ui = ui,server = server)

有关更多详细信息，请参见here，有关颜色样式的几个示例，请参见here。