diff --git a/.github/workflows/check-bioc.yml b/.github/workflows/check-bioc.yml index fc5daa0..f1b31a1 100644 --- a/.github/workflows/check-bioc.yml +++ b/.github/workflows/check-bioc.yml @@ -52,9 +52,9 @@ jobs: fail-fast: false matrix: config: - - { os: ubuntu-latest, r: 'devel', bioc: '3.17', cont: "bioconductor/bioconductor_docker:devel", rspm: "https://packagemanager.rstudio.com/cran/__linux__/focal/latest" } - - { os: macOS-latest, r: 'devel', bioc: '3.17'} - - { os: windows-latest, r: 'devel', bioc: '3.17'} + - { os: ubuntu-latest, r: 'devel', bioc: '3.19', cont: "bioconductor/bioconductor_docker:devel", rspm: "https://packagemanager.rstudio.com/cran/__linux__/focal/latest" } + - { os: macOS-latest, r: 'devel', bioc: '3.19'} + - { os: windows-latest, r: 'devel', bioc: '3.19'} ## Check https://github.com/r-lib/actions/tree/master/examples ## for examples using the http-user-agent env: diff --git a/DESCRIPTION b/DESCRIPTION index d5b6fe4..a94159e 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,7 +1,7 @@ Package: iSEEindex Title: iSEE extension for a landing page to a custom collection of data sets -Version: 1.1.0 -Date: 2022-07-06 +Version: 1.1.1 +Date: 2024-02-21 Authors@R: c(person("Kevin", "Rue-Albrecht", email = "kevinrue67@gmail.com", role = c("aut", "cre"), @@ -9,6 +9,9 @@ Authors@R: person("Thomas", "Sandmann", email = "tomsing1@gmail.com", role = c("ctb"), comment = c(ORCID = "0000-0002-6601-8890")), + person("Federico", "Marini", email="marinif@uni-mainz.de", + role="aut", + comment = c(ORCID = '0000-0003-3252-7758')), person("Denali Therapeutics", role = c("fnd"))) Description: This package provides an interface to any collection of data sets within a single iSEE web-application. The main functionality of this package is diff --git a/NEWS.md b/NEWS.md index 42fec66..eb76453 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,3 +1,7 @@ +# iSEEindex 1.1.1 + +* Add possibility to customise the title of the app. + # iSEEindex 0.99.13 * Added possibility to inject custom header and footer in landing page. diff --git a/R/iSEEindex.R b/R/iSEEindex.R index 4dd048d..260b914 100644 --- a/R/iSEEindex.R +++ b/R/iSEEindex.R @@ -91,6 +91,9 @@ #' @param default.position Character scalar indicating whether the default #' initial configuration should be added as the `"first"` or `"last"` option #' in the Shiny `selectizeInput()`. +#' @param app.title Character string to specify the desired title to be displayed +#' in the main window of the dashboard. Defaults to `NULL`, which displays some +#' info on the versions of the `iSEEindex` and `iSEE` packages. #' @param body.header UI element to display \emph{above} the main landing page body. #' @param body.footer UI element to display \emph{below} the main landing page body. #' @@ -130,19 +133,26 @@ #' if (interactive()) { #' shiny::runApp(app, port = 1234) #' } -iSEEindex <- function(bfc, FUN.datasets, FUN.initial = NULL, default.add = TRUE, default.position = c("first", "last"), body.header = NULL, body.footer = NULL) { +iSEEindex <- function(bfc, FUN.datasets, FUN.initial = NULL, default.add = TRUE, default.position = c("first", "last"), app.title = NULL, body.header = NULL, body.footer = NULL) { stopifnot(is(bfc, "BiocFileCache")) if (is.null(FUN.initial)) { FUN.initial <- function() NULL } + + if (is.null(app.title)) { + app.title <- sprintf("iSEEindex - v%s | powered by iSEE - v%s", + packageVersion("iSEEindex"), + packageVersion("iSEE")) + } + iSEE( landingPage=.landing_page(bfc, FUN.datasets, FUN.initial, default.add, default.position, body.header, body.footer), - appTitle = sprintf("iSEEindex - v%s", - packageVersion("iSEEindex") - ) + appTitle = app.title ) } + + #' Prepare and Launch the Main App. #' #' Invokes a function that replaces the landing page by the \pkg{iSEE}