Allow changing the application title

R/app.R

@@ -12,12 +12,14 @@
 #'   performing custom analyses. If this is set to `TRUE`, only the predefined
 #'   gene and species sets are available for customizing the analysis. This may
 #'   be useful to limit resource usage on a publicly available instance.
+#' @param title Set the title of the application.
 #' @param port The port to serve the application on.
 #'
 #' @export
 run_app <- function(gene_sets,
                     species_sets = NULL,
                     locked = FALSE,
+                    title = "Gene Position Analysis",
                     port = 3464) {
     stopifnot(!is.null(gene_sets) & !is.null(gene_sets[[1]]))
 
@@ -29,7 +31,8 @@ run_app <- function(gene_sets,
     options <- list(
         gene_sets = gene_sets,
         species_sets = species_sets,
-        locked = locked
+        locked = locked,
+        title = title
     )
 
     # Actually run the app.

R/ui.R

@@ -14,7 +14,7 @@ ui <- function(options) {
                 bootswatch = "united",
                 primary = "#1964bf"
             ),
-            title = "TPE-OLD candidates",
+            title = options$title,
             selected = "Results",
             tabPanel(
                 "Input data",