From b10f2f7a2964b9868454540d10cc45db7e91ca89 Mon Sep 17 00:00:00 2001 From: jreps Date: Tue, 3 Oct 2023 13:37:01 -0400 Subject: [PATCH] Update components-data-viewer.R fixing dropdown button --- R/components-data-viewer.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/components-data-viewer.R b/R/components-data-viewer.R index 649d96d3..e9a52f15 100644 --- a/R/components-data-viewer.R +++ b/R/components-data-viewer.R @@ -334,7 +334,7 @@ function filterMinValue(rows, columnId, filterValue) { # Display message when dat is empty shiny::validate(shiny::need(hasData(data), "No data for selection")) # set row height based on nchar of table - if(max(apply(data, 1, function(x) max(nchar(x))), na.rm = T) < 100){ + if(max(apply(data, 1, function(x) max(nchar(x))), na.rm = T) < 120){ height <- 40*3 } else{ height <- NULL