R/GrapesEqualsGrapes.R

In yikeshu0611/onetree:

#' return locations which b equals a in b
#'
#' @param a object
#' @param b character
#'
#' @return vector or list
#' @export "%==%"
#'
#' @examples "M" %==% c("M","m","M1","M")
"%==%"<- function(a,b){
  if (length(a)==1){
    (1:length(b))[a == b]
  }else if(length(a) > 1){
    for (i in 1:length(a)) {
      if (i==1){location=list()}
      location.i=(1:length(b))[a[i] == b]
      location=c(location,list(location.i))
      names(location)[length(location)]=a[i]
    }
    location
  }
}