|
|
@ -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") |
|
|
|
} |
|
|
|
}) |
|
|
|
|
|
|
|