language_choices <- function() { c( "πŸ‡©πŸ‡° Dansk" = "da", # "πŸ‡©πŸ‡ͺ Deutsch" = "de", "πŸ‡¬πŸ‡§ English" = "en", "πŸ‡ΉπŸ‡Ώ Kiswahili" = "sw"#, # "πŸ‡ΈπŸ‡ͺ Svenska" = "sv" ) }