R/popsGetAffiliation.R

In gitdemont/IFC: Tools for Imaging Flow Cytometry

################################################################################
# This file is released under the GNU General Public License, Version 3, GPL-3 #
# Copyright (C) 2020 Yohann Demont                                             #
#                                                                              #
# It is part of IFC package, please cite:                                      #
# -IFC: An R Package for Imaging Flow Cytometry                                #
# -YEAR: 2020                                                                  #
# -COPYRIGHT HOLDERS: Yohann Demont, Gautier Stoll, Guido Kroemer,             #
#                     Jean-Pierre Marolleau, Loïc Garçon,                      #
#                     INSERM, UPD, CHU Amiens                                  #
#                                                                              #
# DISCLAIMER:                                                                  #
# -You are using this package on your own risk!                                #
# -We do not guarantee privacy nor confidentiality.                            #
# -This program is distributed in the hope that it will be useful, but WITHOUT #
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or        #
# FITNESS FOR A PARTICULAR PURPOSE. In no event shall the copyright holders or #
# contributors be liable for any direct, indirect, incidental, special,        #
# exemplary, or consequential damages (including, but not limited to,          #
# procurement of substitute goods or services; loss of use, data, or profits;  #
# or business interruption) however caused and on any theory of liability,     #
# whether in contract, strict liability, or tort (including negligence or      #
# otherwise) arising in any way out of the use of this software, even if       #
# advised of the possibility of such damage.                                   #
#                                                                              #
# You should have received a copy of the GNU General Public License            #
# along with IFC. If not, see <http://www.gnu.org/licenses/>.                  #
################################################################################

#' @title IFC_pops Affiliation Finder
#' @description
#' Helper that extracts populations dependencies/affiliations.
#' @param pops list of populations
#' @keywords internal
popsGetAffiliation <- function(pops, operators = c("And","Or","Not","(",")")) {
  assert(pops, cla = "IFC_pops")
  K = class(pops)
  all_names = names(pops)
  alt_names = gen_altnames(all_names)
  for(i in seq_along(pops)) {
    if(!pops[[i]]$base%in%c(all_names,"")) stop(pops[[i]]$name, ', trying to compute a population with unknown base ["', pops[[i]]$base, '"]')
    if("C" %in% pops[[i]]$type) {
      tmp = try(splitn(definition = pops[[i]]$definition, all_names = all_names, alt_names = alt_names, operators = operators), silent = TRUE)
      if(inherits(tmp, "try-error")) stop(pops[[i]]$name, ', trying to compute a population with unknown definition ["', pops[[i]]$definition, '"]', call. = FALSE)
      pops[[i]]$split = tmp
      pops[[i]]$names = setdiff(tmp, operators)
    } else {
      pops[[i]]$names = ""
    }
  }
  class(pops) = c(K, "Affiliated")
  return(pops)
}