#' @importFrom dplyr distinct filter
#' @importFrom shiny isTruthy
#' @importFrom rlang .data
#'
set_analyses <- function(dataset, data_group, dat) {
## Filter by dataset.
# Start with phenotypes in data groups.
if(shiny::isTruthy(data_group)) {
dat <- dplyr::filter(dat, .data$pheno_group %in% data_group)
}
# For identified datasets, drop other datasets from those data groups.
if(shiny::isTruthy(dataset)) {
if(!("all" %in% dataset)) {
dat_sets <- dplyr::distinct(dat, .data$pheno_type, .data$pheno_group)
dat_groups <- unique(dplyr::filter(dat_sets,
.data$pheno_type %in% dataset)$pheno_group)
dat <- dplyr::filter(dat,
(.data$pheno_type %in% dataset) |
!(.data$pheno_group %in% dat_groups))
}
}
dat
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.