R shiny different output between renderTable and renderDataTable

Question

I have a shiny application that shows a nice html table of my data, using `renderDataTable`. Then I wanted to make some basic statistics, subset data and calculate means and some other data. When showing results with `renderTable`, I found that date column was not shown in date format. In the figure ou can see the difference. Both tables are generated from the same dataset in the same shiny web app. Can you explain what's happening? And here you can see ui.R and server.R. In this script I just want to show a table and was surprised by the different output. ui.R ``` library(shiny) # Estructura de la página (paneles) shinyUI(pageWithSidebar( # Título superior headerPanel(""), # Panel lateral izquierdo - selección de datos sidebarPanel( helpText("Selecciona las fechas y el tipo de datos. Pulsa el botón Actualizar."), selectInput("torre", "Torre:", list("Agres" = "mariola", "Alfàs del Pi" = "shelada", "Altura" = "altura", "Vistabella del Maestrat" = "vistabella", "Xàtiva" = "xativa")), se…

Accepted Answer

There is no reason to have the same output from 2 different functions.

- `rendertable` uses `xtable` to create the html table

- `renderDataTable` uses external javascript library

You can get the same date format, you should just format your date before calling `renderTable`. Here a short complete example.

```
library(shiny)
dat <- data.frame(date=seq.Date(Sys.Date(),by=1,length.out=5),
                  temp = runif(5))

ui <- fluidPage(
    fluidRow(column(4,dataTableOutput('dto')),
             column(4,tableOutput('to')))
  )

server <- function(input,output){

output$dto <- renderDataTable({dat})
  dat$date <- format(dat$date,'%Y-%m-%d')
  output$to <- renderTable(dat)

}

runApp(list(ui=ui,server=server))
```

R shiny different output between renderTable and renderDataTable

Solution

Problem