Question

如何重命名＆＃34;显示...参赛作品＆＃34;条款标签？

谢谢

这里是我使用的代码：

test.table <- data.frame(lapply(1:4, function(x) {1:50}))
names(test.table) <- paste0('cp', 1:4)

shinyServer(function(input,output){

output$table <- DT::renderDataTable({
DT::datatable(test.table, options = list(language = list(
  info = 'Title example...',
  paginate = list(previous = 'Bot', `next` = 'Top')
 ),formatStyle( test.table,'cp1',
   backgroundColor = styleInterval(4, c('green', 
   'red'))
   ),orderClasses = TRUE))

   })

Answer 1

我们在德语中使用了ShinyApp的以下设置

language <- list(
    sEmptyTable =     {if (is.null(emptyTable)) "Keine Daten in der Tabelle vorhanden" else emptyTable },
    sInfo =            "_START_ bis _END_ von _TOTAL_ Einträgen",
    sInfoEmpty =       "0 bis 0 von 0 Einträgen",
    sInfoFiltered =    "(gefiltert von _MAX_ Einträgen)",
    sInfoPostFix =     "",
    sInfoThousands =   ".",
    sLengthMenu =      "_MENU_ Einträge anzeigen",
    sLoadingRecords =  "Wird geladen...",
    sProcessing =      "Bitte warten...",
    sSearch =          "<i class='fa fa-search'></i>",
    sZeroRecords =     "Keine Einträge vorhanden.",
    oPaginate = list(
      sFirst =       "Erste",
      sPrevious =    "Zurück",
      sNext =        "Nächste",
      sLast =        "Letzte"
    )

我相信您要找的是sSearch和sLengthMenu

dataStyle在数据表DT上

1 个答案: