Как удалить часовой пояс из datatable в Shiny?

Question

В настоящее время, когда я обертываю некоторый выход из PerformanceAnalytics пакета в datatable (пакет DT) для Shiny, даты получают T: 00: 00: 00Z прилагается к ним в браузере.

Например, 2015-01-31T00: 00: 00Z и хотите просто 2015-01-31.

Как предотвратить это и просто показать yyyy-mm-dd? Есть ли настройки в datatable, о которых я не знаю?

TEST CODE

# sample data from dput 
rets <- structure(c(NA, 0.00262056199999994, 0.000126308999435887, -0.00261834288319462, 
         0.0367651429321201, -0.00809892429976078, 0.0139021665335084, 
         -0.0134753927842055, -0.0140747519238918, -0.0163687182009664, 
         -0.00980900143012819, 0.00832756801047285), 
        class = c("xts","zoo"), 
        .indexCLASS = c("POSIXct", "POSIXt"), 
        tclass = c("POSIXct", "POSIXt"),     
        .indexTZ = "UTC", tzone = "UTC", 
        index = structure(c(1414800000, 
             1417305600, 1419984000, 1422662400, 
             1425081600, 1427760000, 1430352000, 
             1433030400, 1435622400, 1438300800, 
             1440979200, 1443571200), 
            tzone = "UTC", 
            tclass = c("POSIXct", "POSIXt")), 
            .Dim = c(12L, 1L), 
            .Dimnames = list(NULL, "nav")) 

library(PerformanceAnalytics) 
library(DT) 
library(xts) 

DT::datatable(table.Drawdowns(rets)) 

ЧТО ТАБЛИЦА ВЫГЛЯДИТ КАК

Answer 1

Вы можете использовать функцию форматирования, например:

DT::datatable(table.Drawdowns(rets)) %>% formatDate(c(1,2,3), method = 'toDateString') 

Дает: