2013-03-19 170 views
6

我正在做一个应用程序来分析时间序列数据与闪亮。 我看起来就像工作中的数据:显示POSIXt对象与闪亮renderTable

    V1  V2 
1 2013-02-04 18:15:00 -4.746 
2 2013-02-04 18:20:00 -4.745 
3 2013-02-04 18:25:00 -4.746 
4 2013-02-04 18:30:00 -4.747 
5 2013-02-04 18:35:00 -4.747 
6 2013-02-04 18:40:00 -4.747 

我想在一个表中绘制数据:

output$view <- renderTable({ 
    head(datasubset(), 
    n=nrow(datasubset())) 
}) 

否则我得到一个错误运行闪亮时:

Error in Math.POSIXt(x + ifelse(x == 0, 1, 0)) : 
     'abs' not defined for "POSIXt" objects 

有没有人有这个错误的解决方案?

更新:错误是由xtable引起的: renderTable使用xtable()生成输出,并且它看起来像xtable在一般日期中播放不好。

的问题已经在这里提交温斯顿·张:https://github.com/rstudio/shiny/issues/129

一种解决方法,请访问:R: xtable and dates

+0

LO像一个错误!试试这个,'datasubset $ V1 < - as.character(datasubset $ V1)' – agstudy 2013-03-19 13:58:46

回答

1

查找到基础包strftime函数。 Strftime将POSIXt对象格式化为字符,并让您指定格式。

你打印表格之前,你可以做些事情是这样的:
datasubset$V1 <- strftime(datasubset$V1, format="%Y-%m-%d %H:%M:%S")

0

希望这将帮助 -

output$$view <- DT::renderDataTable({ 

DataFrame<<-read.xlsx(inFile$datapath, 1) 

datatable(DataFrame)%>% 
    formatDate(2, method = 'toISOString') 

return(DataFrame) 

}) 

在这里,您可以在绘制的mainPanel数据帧“数据帧”,也可以使用这个数据帧 在应用程序中用于进一步的计算/修改通过使用

return(DataFrame)