使用 Shiny 中的本地语言文件进行数据表国际化

Question

我想借助提供的国际化文件将我的数据表翻译成闪亮的，但我不需要链接到网站，而是需要链接我的计算机上的文件（没有互联网连接的虚拟机）\n我怎样才能实现这一目标？

\n\n

我尝试按照此处的步骤进行操作https://rstudio.github.io/DT/004-i18n.html但不是使用“ http://cdn.datatables.net/plug-ins/1.10.19/i18n/French .json ”，我尝试使用“file:///www/French.json”但没有成功

\n\n

这是我的代码

\n\n

library(DT)\n\nui <- basicPage(\n  DT::dataTableOutput("mytable")\n)\n\nserver <- function(input, output) {\n  output$mytable = DT::renderDataTable(\n    mtcars,\n  options = list(\n    language = list(url = "file:///www/French.json")\n  ))\n}\n\nshinyApp(ui, server)\n

\n\n

编辑：我尝试过但没有运气

\n\n

language = list({\n  "language": {\n    "sProcessing": "Traitement en cours ...",\n    "sLengthMenu": "Afficher _MENU_ lignes",\n    "sZeroRecords": "Aucun r\xc3\xa9sultat trouv\xc3\xa9",\n    "sEmptyTable": "Aucune donn\xc3\xa9e disponible",\n    "sInfo": "Lignes _START_ \xc3\xa0 _END_ sur _TOTAL_",\n    "sInfoEmpty": "Aucune ligne affich\xc3\xa9e",\n    "sInfoFiltered": "(Filtrer un maximum de_MAX_)",\n    "sInfoPostFix": "",\n    "sSearch": "Chercher:",\n    "sUrl": "",\n    "sInfoThousands": ",",\n    "sLoadingRecords": "Chargement...",\n    "oPaginate": {\n      "sFirst": "Premier", "sLast": "Dernier", "sNext": "Suivant", "sPrevious": "Pr\xc3\xa9c\xc3\xa9dent"\n    },\n    "oAria": {\n      "sSortAscending": ": Trier par ordre croissant", "sSortDescending": ": Trier par ordre d\xc3\xa9croissant"\n    }\n  }\n})\n

\n

Answer 1

在 R 中，您可以直接使用list：

fr <- list(
  sProcessing = "Traitement en cours...", sSearch = "Rechercher&nbsp;:", 
  sLengthMenu = "Afficher _MENU_ &eacute;l&eacute;ments", 
  sInfo = "Affichage de l'&eacute;l&eacute;ment _START_ &agrave; _END_ sur _TOTAL_ &eacute;l&eacute;ments", 
  sInfoEmpty = "Affichage de l'&eacute;l&eacute;ment 0 &agrave; 0 sur 0 &eacute;l&eacute;ment", 
  sInfoFiltered = "(filtr&eacute; de _MAX_ &eacute;l&eacute;ments au total)", 
  sInfoPostFix = "", sLoadingRecords = "Chargement en cours...", 
  sZeroRecords = "Aucun &eacute;l&eacute;ment &agrave; afficher", 
  sEmptyTable = "Aucune donn&eacute;e disponible dans le tableau", 
  oPaginate = list(
    sFirst = "Premier", sPrevious = "Pr&eacute;c&eacute;dent", 
    sNext = "Suivant", sLast = "Dernier"
  ), 
  oAria = list(
    sSortAscending = ": activer pour trier la colonne par ordre croissant", 
    sSortDescending = ": activer pour trier la colonne par ordre d&eacute;croissant"
  )
)

library(DT)
library(shiny)

ui <- basicPage(
  DT::DTOutput("mytable")
)

server <- function(input, output) {
  output$mytable = DT::renderDT({
    mtcars
  },
  options = list(
    language = fr
  ))
}

shinyApp(ui, server)

如果您想使用此处提供的 JSON ，请将其下载到您的www文件夹中并使用：

language = list(url = "French.json") # without www/