From e27b2d2955d62e46a6614a4e1213f8a712c70c4f Mon Sep 17 00:00:00 2001 From: Marta Alcalde-Herraiz Date: Tue, 19 Nov 2024 18:05:04 +0000 Subject: [PATCH] Update server.R --- inst/shiny/server.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/inst/shiny/server.R b/inst/shiny/server.R index c615313..5c5f01e 100644 --- a/inst/shiny/server.R +++ b/inst/shiny/server.R @@ -636,7 +636,7 @@ server <- function(input, output, session) { dplyr::filter(group_level %in% input$summarise_large_scale_characteristics_grouping_cohort_name) |> dplyr::filter(variable_level %in% input$summarise_large_scale_characteristics_grouping_time_window) - CohortCharacteristics::tableLargeScaleCharacteristics(lsc_data |> arrange(desc(estimate_type), desc(estimate_value)), + CohortCharacteristics::tableLargeScaleCharacteristics(lsc_data |> arrange(desc(estimate_type), desc(as.numeric(estimate_value)), topConcepts = input$top_n # , # header = input$summarise_large_scale_characteristics_gt_0_header,