Dev misc

added a new function, get taxomomic rank for given name.
Could also use:

>x <- 'Baetis'
classi <- classification(get_uid(x))
sapply(classi, function(x) x[nrow(x), 'Rank'])