From 42d8da7e770b41a220e82609b98fa25e433304e8 Mon Sep 17 00:00:00 2001 From: Elias Projahn Date: Sun, 29 Aug 2021 13:43:14 +0200 Subject: [PATCH] Add scrolling to output --- ui.R | 17 +++++++++++++++-- 1 file changed, 15 insertions(+), 2 deletions(-) diff --git a/ui.R b/ui.R index 292b7e1..67ddb8c 100644 --- 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" + ) + ) + ) ) ) ) \ No newline at end of file