Corregir año en la fecha de tabla clinics

BDAccess/app.R

@@ -185,7 +185,7 @@ server <- function(input, output) {
         if (!is.null(CLINICS)){
             rhandsontable(values[["CLINICS"]], stretchH = "all", readOnly = F, useTypes = T) %>% 
                 hot_col(values[["CLINICS"]] %>% select(lubridate::is.Date) %>% colnames, 
-                        dateFormat = "DD/MM/YY", type = "date")
+                        dateFormat = "DD/MM/YYYY", type = "date")
         }
     })