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