R/idp.finder.R

Defines functions idp.finder

idp.finder = function(x,sidp){
  if(is.data.frame(x)) return(x %>% filter(idp%in%grep(paste0('^',sidp),.$idp,value=TRUE)))
  if(!is.data.frame(x)) grep(paste0('^',sidp),x,value=FALSE)
}
douve/UEMR documentation built on Aug. 28, 2023, 2:30 p.m.