Add scrolling to output

2025-10-26 11:17:24 +01:00 · 2021-08-29 13:43:14 +02:00 · 2021-08-29 13:43:14 +02:00 · 42d8da7e77
commit 42d8da7e77
parent 3fd8ef6269
1 changed files with 15 additions and 2 deletions
--- a/ui.R
+++ b/ui.R
@ -30,11 +30,24 @@ ui <- fluidPage(
                max = 30,
                value = 10
            ),
-            DTOutput("genes"),
+            div(
+                style = "overflow-x: auto",
+                DTOutput("genes")
+            ),
            width = 3
        ),
        mainPanel(
-            plotOutput("scatter"),
+            div(
+                style = "overflow-x: auto",
+                div(
+                    style = "min-width: 1400px",
+                    plotOutput(
+                        "scatter",
+                        width = "100%",
+                        height = "600px"
+                    )
+                )
+            )
        )
    )
 )