Question

我正在尝试将背景颜色应用于＆＃39; date＆＃39;的数据表。信息：绿色=最新，黄色=过时，红色=真的过时了。基本上就像一个完整的桌子＆＃39;在这里找到热图示例：https://rstudio.github.io/DT/010-style.html

我的代码看起来大致如此;

library(wakefield)
library(shiny)
library(DT)

backlogTbl <- r_data_frame(n = 5,
 date_stamp,
 date_stamp,
 date_stamp,
 date_stamp) %>%
r_na(prob=.25)

backlogDT <- datatable(backlogTbl) %>%
              formatStyle(names(backlogTbl), 
                  backgroundColor = styleInterval(Sys.Date() - days(c(7,2)), 
                  c("red", "yellow", "green")))

当我运行时，每个非空背景都是绿色而不是绿色/黄色/或红色，具体取决于值，但是当我将单个单元格与断点进行比较时，即

backlogTbl[1,1] < Sys.Date() - days(c(7,2))

我可以在我定义的区间内看到值。

如果我通过我的代码传递虹膜数据集，它格式正常，这让我怀疑问题是它的日期时间数据？我觉得我错过了一些明显的东西......

提前谢谢！

Answer 1

我认为目前不支持此功能，我为此创建了GitHub issue。

一种解决方法是创建一个包含日期整数版本的列，并根据该样式设置您的样式。然后隐藏整数列

library(shiny)
library(DT)
library(tidyverse)
library(lubridate)

ui <- fluidPage(
  titlePanel("DateDemo"),
  sidebarLayout(
    sidebarPanel(
    ),
    mainPanel(
      DTOutput('tbl'),
      width = 10,
      height = "800px")
  )
)

server <- function(input, output) {
  output$tbl <-
    renderDT({
      splitDate <- as.Date("2018-02-02")
      data_frame(ExampleDate = as.Date(c("2018-01-01","2019-01-01"))) %>%
        mutate(ExampleDateInt = as.integer(ExampleDate)) %>% #make column with integer dates
        datatable(options=list(columnDefs = list(list(visible=FALSE, targets=c(2))))) %>% #hide the integer column
        formatStyle(columns = "ExampleDate",
                    valueColumns = "ExampleDateInt",
                    backgroundColor = styleInterval(as.integer(splitDate),c("#FB717E","#89EC6A"))) #format based on the integer column
    }) 
}
shinyApp(ui = ui, server = server)

彩色背景与styleInterval（）的闪亮日期数据表

1 个答案: