ROBUSTNESS: Protect against non-sense parsing of paths

[HenrikBengtsson]

> bam <- BamDataSet$byPath('/lab/joe/LG3/exomes_recal/Patient300/', recursive=TRUE)

> bam
BamDataSet:
Name: ..
Tags: 
Full name: ..
Subpath: ../../lab/joe/LG3/exomes_recal/Patient300
Number of files: 1
Names: .. [1]
Path (to the first file): ../../../../lab/joe/LG3/exomes_recal/Patient300
Total file size: 13.53 GiB (14523869456 bytes)
Number of unique target sequence sets: 1

> getPath(bam)
[1] "../../../../lab/joe/LG3/exomes_recal/Patient300"
> getFullName(bam)
[1] ".."
> getName(bam)
[1] ".."
> getOrganism(bam)
[1] ".."

(This is with aroma.seq 0.9.0 and R.filesets 2.11.0).