R/XPSCoreLineList.r

In GSperanza/RxpsG_2.3-1: Processing Tool for X-ray Photoelectron Spectroscopy Data

#XPSCoreLineList provides the listy of coreline in a XPSSample

#' @title XPSCoreLineList provides the XPS-Sample Core-Lines
#' @description XPSCoreLineList gives the list of Core-Lines 
#'   which are contained in the active XPS-Sample. This list
#'   corresponds to the Core-Lines plotted when double-clicking
#'   on a XPS-Sample loaded in RxpsG. This function is commonly 
#'   used by the other RxpsG functions
#' @examples
#' \dontrun{
#' 	XPSCoreLineList()
#' }
#' @export
#'

XPSCoreLineList <- function() {
  #load the list of file IDs
     ClassFilter <- function(x) inherits(get(x), "XPSSample" ) #set class==XPSSample for filtering
     IDList <- Filter(ClassFilter, ls(.GlobalEnv)) #filters the list of variables in the .GlobalEnv selecting those of class XPSSample
     if (length(IDList)==0){
       tkmessageBox(message = "NO SPECTRA LOADED", icon = "warning", type = "ok")
     } 
     LID=length(IDList)
     Spectra=""
     List=""
  #For the first XPSSample get the list of corelines: eval used to operate on XPSSamples in .GlobalEnv
     command<-paste("names(",IDList[1],")", sep="")
     Spectra<-eval(parse(text=command),envir =.GlobalEnv)  #Save the list of corelines in the return vector
     List<-Spectra
     LL=length(List)
  #Control if there is more than one XPSSample compare coreline_names
     if (LID>1){
        for(ii in 2:LID) {
          command<-paste("names(",IDList[ii],")", sep="")
          Spectra<-eval(parse(text=command),envir = .GlobalEnv)
          LS=length(Spectra)
          for (jj in 1:LS){
  #add core line names to the list of spectra if they are not present
            if(length(grep(Spectra[jj], List))==0) {
               List[LL+1]<-Spectra[jj]
               LL<-LL+1
            }
          }
        }
     }
     return(List)
}