DataTables通过包含用于DataTables的jQueryUI集成，在一个闪亮的应用程序中进行链接

我想在一个闪亮的应用程序中添加jqueryui，从而创建DataTables。我在标题中集成了标签，但没有考虑样式

示例代码：

library(shiny)

runApp(list(
ui= pageWithSidebar(
headerPanel(list('Examples of DataTables',
          singleton(tags$head(tags$link(rel = "stylesheet", type ="text/css", href = "https://cdn.datatables.net/v/ju-1.11.4/dt-1.10.13/datatables.min.css"))),
          singleton(tags$head(tags$script(type='text/javascript',src='https://cdn.datatables.net/v/ju-1.11.4/dt-1.10.13/datatables.min.js'))))),
sidebarPanel(
checkboxGroupInput('show_vars', 
                   'Columns in diamonds to show:', 
                   names(diamonds),
                   selected = names(diamonds))
),
mainPanel(
tabsetPanel(
  tabPanel('diamonds',
           dataTableOutput("mytable1")),
  tabPanel('mtcars',
           dataTableOutput("mytable2")),
  tabPanel('iris',
           dataTableOutput("mytable3"))
  ))),

 server = function(input, output) {

  output$mytable1 = renderDataTable({
   library(ggplot2)
   diamonds[, input$show_vars, drop = FALSE]
  })

  output$mytable2 = renderDataTable({mtcars}, options = list(orderClasses = TRUE))

  output$mytable3 = renderDataTable({
  iris}, options = list(lengthMenu = c(5, 30, 50), pageLength = 5))
  }))

我想显示数据表，如下例所示

---

当我在浏览器中打开表格时，它是这样工作的，而在RStudio查看器中则不起作用。这在Shiny中应该可以工作，但是DT javascript提供的所有功能都丢失了

dtable <- datatable(iris)
dep <- htmltools::htmlDependency(
  "judtcss", "1.11.4",
  c(href =  "https://cdn.datatables.net/v/ju-1.11.4/dt-1.10.13/"), 
  stylesheet = "datatables.min.css")
dtable$dependencies <- c(dtable$dependencies, list(dep))
dep <- htmltools::htmlDependency(
  "judt", "1.11.4",
  c(href =  "https://cdn.datatables.net/v/ju-1.11.4/dt-1.10.13/"), 
  script = "datatables.min.js")
dtable$dependencies <- c(dtable$dependencies, list(dep))
dtable$dependencies[[1]] <- NULL

dtable

dtable