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

Show whether the running instance is for staging

Browse source
This commit is contained in:
Elias Projahn 2025-03-05 17:52:41 +01:00
parent 414dba5693
commit a86b28b2fa
1 changed files with 17 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

19
R/ui.R
View file

@ -1,6 +1,20 @@
#' Function for creating the main user interface.
#' @noRd
ui <- function(custom_dataset = NULL, show_api_docs = FALSE) {
title <- "Ubigen"
commit_text <- ""
commit_file <- system.file("misc", "commit.txt", package = "ubigen")
if (file.exists(commit_file)) {
title <- "Ubigen (Staging)"
long_hash <- readLines(commit_file, warn = FALSE)[1]
short_hash <- substr(long_hash, 1, 7)
commit_text <- glue::glue(
", commit <a href=\"https://gitlab.uni-rostock.de/ep135/ubigen/-/commit/",
"{long_hash}\" target=\"_blank\"><code>{short_hash}</code></a>"
)
}
div(
custom_css(),
rclipboard::rclipboardSetup(),
@ -10,7 +24,7 @@ ui <- function(custom_dataset = NULL, show_api_docs = FALSE) {
bootswatch = "united",
primary = "#7d19bf"
),
title = "Ubigen",
title = title,
tabPanel(
"Explore",
sidebarLayout(
@ -108,7 +122,8 @@ ui <- function(custom_dataset = NULL, show_api_docs = FALSE) {
div(
class = "footer",
HTML(glue::glue(
"Ubigen version {packageVersion(\"ubigen\")}<br>Source code: ",
"Ubigen version {packageVersion(\"ubigen\")}{commit_text}<br>",
"Source code: ",
"<a href=\"https://gitlab.uni-rostock.de/ep135/ubigen/\" ",
"target=\"blank\">available online</a> (GNU AGPL v3)<br>",
"Citation: Manuscript in preparation"