Option to choose language for AI summary

[RobertASmith]

Can use the polyglotr package to quickly translate using free APIs (like google's):

https://github.com/Tomeriko96/polyglotr

This would enable those whose first language is not English to understand the functions in lots of the models (as far as I'm aware predominantly in English).

[RobertASmith]

This isn't required. Can just ask GPT-3.5 to provide the summary in any language.

[RobertASmith]

rm(list = ls())
library(shiny)
library(shinyWidgets)

# create a data frame with the languages
# and their corresponding flags
languages <- c("English", "Spanish", "Mandarin", "Hindi", "Arabic", 
               "Bengali", "Portuguese", "Russian", "Japanese", "German", 
               "Javanese", "Punjabi", "Wu", "Telugu", "Marathi", 
               "Vietnamese", "Korean", "French", "Turkish", "Tamil",
               "Bulgarian", "Croatian", "Czech", "Danish", "Dutch", 
               "Estonian", "Finnish", "Greek", "Hungarian", "Irish", 
               "Italian", "Latvian", "Lithuanian", "Maltese", "Polish", 
               "Romanian", "Slovak", "Slovenian", "Swedish")

flags <- c("https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/gb.svg",
           "https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/es.svg",
           "https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/cn.svg",
           "https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/in.svg",
           "https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/sa.svg",
           "https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/bd.svg",
           "https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/pt.svg",
           "https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/ru.svg",
           "https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/jp.svg",
           "https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/de.svg",
           "https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/id.svg",
           "https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/in.svg",
           "https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/us.svg",
           "https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/in.svg",
           "https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/in.svg",
           "https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/vn.svg",
           "https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/kr.svg",
           "https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/fr.svg",
           "https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/tr.svg",
           "https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/in.svg",
           "https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/bg.svg",
           "https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/hr.svg",
           "https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/cz.svg",
           "https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/dk.svg",
           "https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/nl.svg",
           "https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/ee.svg",
           "https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/fi.svg",
           "https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/gr.svg",
           "https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/hu.svg",
           "https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/ie.svg",
           "https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/it.svg",
           "https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/lv.svg",
           "https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/lt.svg",
           "https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/mt.svg",
           "https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/pl.svg",
           "https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/ro.svg",
           "https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/sk.svg",
           "https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/si.svg",
           "https://cdn.rawgit.com/lipis/flag-icon-css/master/flags/4x3/se.svg")

# create a tibble
language_data <- tibble(Language = languages, Flag_URL = flags)

ui <- fluidPage(
  
  pickerInput(inputId = "language", 
              label = "Languages", 
              choices = language_data$Language,
              selected = "English",
              choicesOpt = list(content =  
                                  mapply(language_data$Language, language_data$Flag_URL, 
                                         FUN = function(language, flagUrl) {
                                           HTML(paste(
                                             tags$img(src=flagUrl, 
                                                      width=20, 
                                                      height=15),
                                             language
                                           ))
                                         }, 
                                         SIMPLIFY = FALSE, 
                                         USE.NAMES = FALSE)
                                
              ))
  ,
  
  textOutput("txt")
)

server <- function(input, output, session) {
  output$txt <- renderText({
    paste("You chose", input$language)
  })
}

shinyApp(ui, server)