Merge branch 'main' into dev

BDAccess/app.R

@@ -184,7 +184,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)
         }
     })
     
@@ -204,7 +204,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")
         }
     })