Некоторые примечания:

Текущая версия data.table несовместима с блестящим банкоматом. Нам нужна 1.9.4 версия. Затем нам также понадобится предварительная 1.1.0 версия colvis. К сожалению, это относилось к старой версии jQuery, которая вызвала jQuery.browser. Поэтому ссылку на этот jQuery.browser необходимо удалить, оно встречается в строках с 856 по 859. Атрибут sDom также немного сложен, он не отображается в новой таблице data.table, замененной на dom. Документация находится по адресу http://legacy.datatables.net/usage/options#sDom. Мы добавляем содержимое colVis в class="cvclear", используя этот фрагмент <"cvclear"C>. Размещение его вверху осуществляется путем его упорядочивания в начале оператора sDom. Это работает, однако нам нужно выровнять его по правому краю. Обычно это делается путем добавления align = "right" к классу, но поскольку класс инициируется вызовом sDom, мы вместо этого должны использовать HTML5 css text-align:right. Мы добавляем это с помощью tags$style.

Таким образом, приведенное выше должно позволить нам использовать colVis с текущим сиянием. После блестящего обновления до data.table 1.10.0 мы сможем использовать текущие colVis файлы подключаемых модулей, и мы надеемся, что исправления не понадобятся.

У меня работает следующее:

ui.R

# get the colVis js file and delete lines 
library(RCurl)
write(getURL("https://raw.githubusercontent.com/openMF/mifosx-community-apps/master/IndividualLendingGeneralJavaScript/resources/libs/DataTables-1.9.4/extras/ColVis/media/js/ColVis.js")
      , file = 'www/colvis.js')
tf <- readLines("www/colvis.js")[-c(856:859)]
write(tf, file = "www/colvis.js")
shinyUI({
  pageWithSidebar(

    h1('Diamonds DataTable with TableTools'),
    tagList(
      singleton(tags$head(tags$script(src='//cdnjs.cloudflare.com/ajax/libs/datatables/1.9.4/jquery.dataTables.min.js',type='text/javascript'))),
      singleton(tags$head(tags$script(src='//cdnjs.cloudflare.com/ajax/libs/datatables-tabletools/2.1.5/js/TableTools.min.js',type='text/javascript'))),
      singleton(tags$head(tags$script(src='//cdn.datatables.net/colreorder/1.1.1/js/dataTables.colReorder.min.js',type='text/javascript'))),
      singleton(tags$head(tags$script(src='colvis.js',type='text/javascript'))),
      singleton(tags$head(tags$script(src='//cdnjs.cloudflare.com/ajax/libs/datatables-tabletools/2.1.5/js/ZeroClipboard.min.js',type='text/javascript'))),
      singleton(tags$head(tags$link(href='//cdnjs.cloudflare.com/ajax/libs/datatables-tabletools/2.1.5/css/TableTools.min.css',rel='stylesheet',type='text/css'))),
      singleton(tags$head(tags$link(href='https://raw.githubusercontent.com/openMF/mifosx-community-apps/master/IndividualLendingGeneralJavaScript/resources/libs/DataTables-1.9.4/extras/ColVis/media/css/ColVis.css',rel='stylesheet',type='text/css'))),     
      singleton(tags$script(HTML("if (window.innerHeight < 400) alert('Screen too small');"))),
      singleton(tags$head(tags$link(href='https://raw.githubusercontent.com/DataTables/ColVis/18b52dfdd7255ffe96a92aadc16cadd70e3e174a/media/css/ColVis.css',rel='stylesheet',type='text/css')))  
      , tags$head(
        tags$style(HTML("
                        .cvclear{
                         text-align:right}")
        )
      )
    ),
    dataTableOutput("mytable")
  )
})

server.R

library(shiny)
library(ggplot2)

shinyServer(function(input, output, session) {
  output$mytable = renderDataTable({
    diamonds[,1:6]
  }, options = list(
    "sDom" = 'RMD<"cvclear"C><"clear"T>lfrtip',
    "oTableTools" = list(
      "sSwfPath" = "//cdnjs.cloudflare.com/ajax/libs/datatables-tabletools/2.1.5/swf/copy_csv_xls.swf",
      "aButtons" = list(
        "copy",
        "print",
        list("sExtends" = "collection",
             "sButtonText" = "Save",
             "aButtons" = c("csv","xls")
        )
      )
    )
  )
  )
}
)

Вы можете просмотреть приложение по адресу:

http://128.199.255.233:3838/userApps/john/cvtestapp/