光沢のあるアプリケーション：ブラウザの言語設定を取得

Question

私の質問はかなり簡単です。私はユーザーがボタンであらかじめ定義された言語を切り替えることができるShinyアプリケーションを構築しています。 しかし、テキストに既に表示されているユーザーの言語で各セッションを開始したいので、の言語を取得するには、文字変数を返す関数のように、ブラウザまたはオペレーティングシステムで定義された言語を取得します？

私はこのテーマについて多くの質問はこのサイトにすでにあったことを見たが、そこにR /シャイニー以外のコンピューティングの言語のためのものであると、私はこの答えはどのようにR.にそれらを適応させることに感謝

Answer 1

見当がつかないSO answerとblog linkの内容に基づいています。コードフロー：

runjsのshinyjsパッケージを使用してブラウザ言語を取得するためのプレーンなjavascriptコードが実行されます（代わりにtags$scriptでも実行可能）。また、ブラウザの言語値はjavacript変数languageに格納され、Rに戻されてテキストとして表示されます。

jscode <- "var language = window.navigator.userLanguage || window.navigator.language; 
Shiny.onInputChange('mydata', language); 
console.log(language);" 
library(shiny); library(shinyjs) 
shinyApp(
    ui = fluidPage(
    useShinyjs(), 

    "This is your browser language", 
    textOutput('your_lang') 

), 
    server = function(input, output,session) { 
    runjs(jscode) 
output$your_lang <- renderPrint(input$mydata) 
    } 
) 

スクリーンショット：私はChrisphe Ladroueのコードの一部を使用しています私のアプリの多言語の部分については