R/list_supported_language_ids.R

In computationalstylistics/tidystopwords: Customisable Stop-Words in 110 Languages

list_supported_language_ids <- function() {
    # a hack to silence package warnings  
    data("multilingual_stoplist", package = "tidystopwords", envir = environment()) 
    multilingual_stoplist <- get("multilingual_stoplist", envir = environment()) 
    #
    supported_languages <- unique(multilingual_stoplist$language_id)
    return(supported_languages)
}