r - 在数据表输出中格式化日期

Question

library(DT)
seq_dates <- data.frame(dates = as.Date("2017-01-01") + 1:6 * 100)
datatable(seq_dates) %>% formatDate(1, "toDateString")

我在查看器 Pane 中获得了一个数据表，该数据表以以下格式“Mon May 22 2017”显示日期。

问-如何将日期栏的格式设置为“MM-YY”

如果我做，

dplyr::mutate(seq_dates, dates = format(dates, format = "%b-%Y")) %>%
  datatable()

我得到了所需的日期格式，但是在第二种情况下，列排序不起作用(排序是按字母而不是日期进行的。)

附注-我正在 Shiny 地实现这一点。

Answer 1

您好，在这些情况下，我认为最好的解决方案是添加一个虚拟列，使其原始格式的日期与date列根据DUMMY列中的值进行排序。这在数据表中很容易完成。下面的示例代码。

seq_dates <- data.frame(dates = as.Date("2017-01-01") + 1:6 * 100)
datatable(seq_dates %>% mutate(DUMMY = dates,dates = format(dates, format = "%b-%Y")),
          options = list(
            columnDefs = list(
              list(targets = 1,orderData = 2),
              list(targets = 2, visible = FALSE)
             )
           ))