selected descedning results by default

OHDSI · Jul 25, 2023 · fe55d30 · fe55d30
1 parent ee09c18
commit fe55d30
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/cohort-diagnostics-characterization.R b/R/cohort-diagnostics-characterization.R
@@ -226,6 +226,7 @@ characterizationView <- function(id) {
               shiny::column(width = 2,
                             shiny::radioButtons(inputId = ns("shortByRawAsc"),
                                                 choices = c(ascending = "ASC", descending = "DESC"),
+                                                selected = "DESC",
                                                 label = "order")
               ),
               shiny::column(width = 4,
@@ -247,6 +248,7 @@ characterizationView <- function(id) {
               shiny::column(width = 2,
                             shiny::radioButtons(inputId = ns("shortByRawAscTemporal"),
                                                 choices = c(ascending = "ASC", descending = "DESC"),
+                                                selected = "DESC",
                                                 label = "order")
               ),
               shiny::column(width = 4,