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

User interface and style improvements

Browse source
This commit is contained in:
Elias Projahn 2022-08-18 12:21:00 +02:00
parent 447fdfab4f
commit 6938cb0d84
7 changed files with 62 additions and 44 deletions
Download patch file Download diff file Expand all files Collapse all files

14
R/details.R
View file

@ -8,11 +8,15 @@ details_ui <- function(id) {
splitLayout(
cellWidths = "auto",
uiOutput(NS(id, "copy")),
downloadButton(NS(id, "download"), "Download CSV")
downloadButton(
NS(id, "download"),
"Download CSV",
class = "btn-outline-primary"
)
)
),
div(
style = "margin-top: 16px",
style = "margin-top: 16px; margin-bottom: 8px;",
DT::DTOutput(NS(id, "genes"))
)
)
@ -43,13 +47,15 @@ details_server <- function(id, options, results) {
"copy_ids_button",
"Copy gene IDs",
genes_text,
icon = icon("clipboard")
icon = icon("clipboard"),
class = "btn-outline-primary"
),
rclipboard::rclipButton(
"copy_names_button",
"Copy gene names",
names_text,
icon = icon("clipboard")
icon = icon("clipboard"),
class = "btn-outline-primary"
)
)
})