From 9b8f24ddd8e520c8bcc4e6cd7e79c91305cb1e9b Mon Sep 17 00:00:00 2001
From: Costa <47926492N@ICO.SCS.local>
Date: Thu, 31 Mar 2022 14:18:46 +0200
Subject: [PATCH] Corregir formato en las fechas de la plantilla CLINICS.

---
 BDAccess/app.R | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/BDAccess/app.R b/BDAccess/app.R
index 155e434..b5f7080 100644
--- a/BDAccess/app.R
+++ b/BDAccess/app.R
@@ -163,7 +163,7 @@ server <- function(input, output) {
     
     output$samples <- renderRHandsontable({
         if (!is.null(samples)){
-            rhandsontable(values[["samples"]], stretchH = "all", readOnly = F, useTypes = T)   
+            rhandsontable(values[["samples"]], stretchH = "all", readOnly = F, useTypes = T)
         }
     })
     
@@ -183,7 +183,9 @@ server <- function(input, output) {
     
     output$CLINICS <- renderRHandsontable({
         if (!is.null(CLINICS)){
-            rhandsontable(values[["CLINICS"]], stretchH = "all", readOnly = F, useTypes = T)   
+            rhandsontable(values[["CLINICS"]], stretchH = "all", readOnly = F, useTypes = T) %>% 
+                hot_col(values[["CLINICS"]] %>% select(lubridate::is.Date) %>% colnames, 
+                        dateFormat = "DD/MM/YY", type = "date")
         }
     })