r - Shiny 的表格格式

Question

我是 Shiny 的新手，有一个使用 mtcars 的基本 Shiny 应用程序。我有多个选项卡，带有一些输入下拉列表，并将输出显示为 DT 表。这一切正常，但我现在想使用一些格式，如 formattable。我想包含的一些格式是基本百分比、小数。另外，我想添加一些基于单元格的突出显示。我尝试了多种格式化功能，但没有任何运气。我在服务器端输出中添加了函数，但我无法获得正确的组合。下面是我的 Shiny 代码:

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({

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

shinyApp(ui = ui, server = server)

Answer 1

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

这是您可以尝试的快速示例。这使得 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")
        )
      )
    )
  )
})