Skip to contents

Takes any vector of affiliations and returns languages.

Usage

lang.aff(x, include.dialects = FALSE, list = FALSE)

Arguments

x

A character vector of the affiliations (can be written in lower case)

include.dialects

logical. If TRUE, it returns all langauges and dialects, if FALSE it returns only languages.

list

logical. If TRUE, it returns a list of languages, if FALSE it returns a named vector.

See also

Author

George Moroz <agricolamz@gmail.com>

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"            
#>