R блестящие dataTables с TableTools и другими расширениями
Я пытаюсь получить dataTables TableTools и другие расширения, работающие с Shiny. Я нашел сайт, объясняющий, как это сделать:
https://gist.github.com/bearloga/8327428
Но я не могу заставить его работать. addResourcePath не будет работать в моем сценарии, поэтому вместо этого я использую полный путь. Даже тогда кажется, что использование DataTables и расширений не имеет никакого эффекта, и я получаю только базовую таблицу без TableTools или других работающих расширений. Я знаюtags$script
записи работают, потому что, если я сделаю окно достаточно маленьким, я получуScreen too small
предупреждение из HTML ниже.
Есть идеи?
#### ui.R
suppressWarnings(suppressPackageStartupMessages(library("ggplot2", lib.loc="/opt/thirdparty/R/R-3.1.0/lib64/R/library")))
shinyUI = basicPage(
h1('Diamonds DataTable with TableTools'),
tagList(
singleton(tags$head(tags$script(src='/opt/development/tools/webdev/shiny/datatables/DataTables-1.10.0/media/js/jquery.dataTables.js',type='text/javascript'))),
singleton(tags$head(tags$script(src='/opt/development/tools/webdev/shiny/datatables/TableTools-2.2.1/js/dataTables.tableTools.js',type='text/javascript'))),
singleton(tags$head(tags$script(src='/opt/development/tools/webdev/shiny/datatables/ColReorder-1.1.1/js/dataTables.colReorder.js',type='text/javascript'))),
singleton(tags$head(tags$link(href='/opt/development/tools/webdev/shiny/datatables/TableTools-2.2.1/css/dataTables.tableTools.css',rel='stylesheet',type='text/css'))),
singleton(tags$script(HTML("if (window.innerHeight < 400) alert('Screen too small');")))
),
dataTableOutput("mytable")
)
########################################
### server.R
shinyServer(function(input, output) {
output$mytable = renderDataTable({
diamonds[,1:6]
}, options = list(
"sDom" = 'T<"clear">lfrtip',
"oTableTools" = list(
"sSwfPath" = "/opt/development/tools/webdev/shiny/datatables/TableTools-2.2.1/swf/copy_csv_xls.swf",
"aButtons" = list(
"copy",
"print",
list("sExtends" = "collection",
"sButtonText" = "Save",
"aButtons" = c("csv","xls")
)
)
)
)
)
})
########################################