1extract.name.from.special <- function(x,pattern="[()]"){ 2 if (length(x)==1) 3 rev(unlist(strsplit(x,pattern)))[1] 4 else 5 as.character(sapply(x,extract.name.from.special)) 6} 7