R/set_analyses.R

In byandell/qtl2shiny: Shiny interface for 'qtl2' Fine Mapping

#' @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
}