Merge branch 'main' into dev
This commit is contained in:
+4
-2
@@ -184,7 +184,7 @@ server <- function(input, output) {
|
|||||||
|
|
||||||
output$samples <- renderRHandsontable({
|
output$samples <- renderRHandsontable({
|
||||||
if (!is.null(samples)){
|
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({
|
output$CLINICS <- renderRHandsontable({
|
||||||
if (!is.null(CLINICS)){
|
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")
|
||||||
}
|
}
|
||||||
})
|
})
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user