added german_formal

DESCRIPTION

@@ -4,7 +4,7 @@ Description: Use the R console as an interactive learning
     environment. Users receive immediate feedback as they are guided through
     self-paced lessons in data science and R programming.
 URL: http://swirlstats.com
-Version: 2.4.2
+Version: 2.4.2.9001
 License: MIT + file LICENSE
 Authors@R: c(
     person("Sean", "Kross", email = "[email protected]", role = c("aut", "cre")),

R/languages.R

@@ -1,6 +1,7 @@
 swirl_language <- function(){
   lang <- getOption("swirl_language")
-  langs <- c("chinese_simplified", "english", "french", "german", "korean", 
+  langs <- c("chinese_simplified", "dutch", "english", 
+             "french", "german", "german_formal", "korean", "portuguese", 
              "spanish", "turkish")
 
   if(is.null(lang) || !(lang %in% langs)){
@@ -25,7 +26,8 @@ swirl_language <- function(){
 #' 
 #' @export
 select_language <- function(language = NULL, append_rprofile = FALSE){
-  langs <- c("chinese_simplified", "english", "french", "german", "korean", 
+  langs <- c("chinese_simplified", "dutch", "english", 
+             "french", "german", "german_formal", "korean", "portuguese", 
              "spanish", "turkish")
   if(is.null(language)){
     selection <- select.list(langs)