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