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",

man/run_app.Rd

@@ -4,7 +4,13 @@
 \alias{run_app}
 \title{Run the application server.}
 \usage{
-run_app(gene_sets, species_sets = NULL, locked = FALSE, port = 3464)
+run_app(
+  gene_sets,
+  species_sets = NULL,
+  locked = FALSE,
+  title = "Gene Position Analysis",
+  port = 3464
+)
 }
 \arguments{
 \item{gene_sets}{A list of predefined gene sets. This should be a named list
@@ -22,6 +28,8 @@ performing custom analyses. If this is set to \code{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.}
 
+\item{title}{Set the title of the application.}
+
 \item{port}{The port to serve the application on.}
 }
 \description{