johrpan/geposanui
1
0
Fork 0
mirror of https://github.com/johrpan/geposanui.git synced 2025-10-26 19:27:24 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add buttons to copy results

Browse source
This commit is contained in:
Elias Projahn 2021-10-07 12:59:04 +02:00
parent 686af3f44b
commit ae0643741a
2 changed files with 34 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
ui.R
View file

@ -1,8 +1,10 @@
library(DT)
library(plotly)
library(rclipboard)
library(shiny)
ui <- fluidPage(
rclipboardSetup(),
titlePanel("TPE-OLD candidates"),
column(
width = 3,
@ -59,6 +61,10 @@ ui <- fluidPage(
wellPanel(
h3("Results"),
textOutput("synposis"),
div(
style = "margin-top: 16px",
uiOutput("copy")
),
div(
style = "overflow-x: auto; overflow-y: auto; margin-top: 16px",
DTOutput("genes")