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

Organize output in tabs

Browse source
This commit is contained in:
Elias Projahn 2021-10-15 13:59:00 +02:00
parent 527ba01cc9
commit aaff5878ec
2 changed files with 50 additions and 41 deletions
Download patch file Download diff file Expand all files Collapse all files

8
server.R
View file

@ -100,6 +100,7 @@ server <- function(input, output) {
rownames = FALSE,
colnames = column_names,
style = "bootstrap",
fillContainer = TRUE,
extensions = "Scroller",
options = list(
rowCallback = js_link,
@ -137,19 +138,18 @@ server <- function(input, output) {
names_text <- paste(names, collapse = "\n")
splitLayout(
cellWidths = "auto",
rclipButton(
"copy_ids_button",
"Copy gene IDs",
genes_text,
icon = icon("clipboard"),
width = "100%"
icon = icon("clipboard")
),
rclipButton(
"copy_names_button",
"Copy gene names",
names_text,
icon = icon("clipboard"),
width = "100%"
icon = icon("clipboard")
)
)
})