Takes any vector of affiliations and returns languages.
Examples
lang.aff('Slavic')
#> [1] "Old Prussian" "Lithuanian"
#> [3] "Latvian" "Belarusian"
#> [5] "Old Russian" "Russian"
#> [7] "Rusyn" "Ukrainian"
#> [9] "Polabian" "Kashubian"
#> [11] "Czech" "Slovak"
#> [13] "Upper Sorbian" "Lower Sorbian"
#> [15] "Church Slavic" "Serbian-Croatian-Bosnian"
#> [17] "Kajkavian" "Slavomolisano"
#> [19] "Slovenian" "Polish"
#> [21] "Silesian" "Macedonian"
#> [23] "Bulgarian"
lang.aff(c('Slavic', 'Celtic'))
#> [1] "Old Prussian" "Lithuanian"
#> [3] "Latvian" "Belarusian"
#> [5] "Old Russian" "Russian"
#> [7] "Rusyn" "Ukrainian"
#> [9] "Polabian" "Kashubian"
#> [11] "Czech" "Slovak"
#> [13] "Upper Sorbian" "Lower Sorbian"
#> [15] "Church Slavic" "Serbian-Croatian-Bosnian"
#> [17] "Kajkavian" "Slavomolisano"
#> [19] "Slovenian" "Polish"
#> [21] "Silesian" "Macedonian"
#> [23] "Bulgarian" "Celtiberian"
#> [25] "Cisalpine Gaulish" "Lepontic"
#> [27] "Transalpine Gaulish" "Noric"
#> [29] "Galatian" "Early Irish"
#> [31] "Irish" "Welsh"
#> [33] "Old-Middle Welsh" "Old Cornish"
#> [35] "Scottish Gaelic" "Manx"
#> [37] "Breton" "Cornish"
lang.aff(c('Slavic', 'Celtic'), list = TRUE)
#> [[1]]
#> [1] "Old Prussian" "Lithuanian"
#> [3] "Latvian" "Belarusian"
#> [5] "Old Russian" "Russian"
#> [7] "Rusyn" "Ukrainian"
#> [9] "Polabian" "Kashubian"
#> [11] "Czech" "Slovak"
#> [13] "Upper Sorbian" "Lower Sorbian"
#> [15] "Church Slavic" "Serbian-Croatian-Bosnian"
#> [17] "Kajkavian" "Slavomolisano"
#> [19] "Slovenian" "Polish"
#> [21] "Silesian" "Macedonian"
#> [23] "Bulgarian"
#>
#> [[2]]
#> [1] "Celtiberian" "Cisalpine Gaulish" "Lepontic"
#> [4] "Transalpine Gaulish" "Noric" "Galatian"
#> [7] "Early Irish" "Irish" "Welsh"
#> [10] "Old-Middle Welsh" "Old Cornish" "Scottish Gaelic"
#> [13] "Manx" "Breton" "Cornish"
#>