Browse Source

Merge branch 'main' into dev

main
marcelcosta 2 years ago
parent
commit
3c8a69b21c
1 changed files with 4 additions and 2 deletions
  1. +4
    -2
      BDAccess/app.R

+ 4
- 2
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")
}
})

Loading…
Cancel
Save