~/code/R/
strsplit("TAZ : TAZ-Agriculture", " : ")
## [[1]] ## [1] "TAZ" "TAZ-Agriculture"
strsplit("TAZ : TAZ-Agriculture", " : ") %>% unlist
## [1] "TAZ" "TAZ-Agriculture"
strsplit("TAZ : TAZ-Agriculture", " : |-") %>% unlist
## [1] "TAZ" "TAZ" "Agriculture"