如何在 r shiny 中使用 JS 数据表 API？
Posted
技术标签:
【中文标题】如何在 r shiny 中使用 JS 数据表 API？【英文标题】：How do I use the JS datatables API in r shiny? 【发布时间】：2021-10-30 09:37:39 【问题描述】：我一直在尝试将 api 用于 r shiny 中的 javascript 包数据表。每当我运行我的代码时，我都会收到一条错误消息，指出无法识别 .DataTable()。下面是我的代码在 R 中的样子：
library(readxl)
library(shiny)
library(dplyr)
library(DT)
summary_table <- read.csv("summary")[, c("GSN", "Category", "Study.Level")] %>%
mutate_at(c("GSN", "Category", "Study.Level"), as.factor);
summary_data_table <- DT::datatable(summary_table, filter = "top");
ui <- basicPage(
tags$div(DTOutput("summary_table"), id = "example"),
tags$head(html("<script>var table = $('summary_table').DataTable();</script>"))
)
print(ui)
server <- function(input, output)
output$summary_table <- DT::renderDataTable(summary_data_table);
shinyApp(ui = ui, server = server)
R 在生成 HTML 时似乎已经以正确的顺序包含了必要的依赖项。这是它产生的头部：
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<script type="application/shiny-singletons"></script>
<script type="application/html-dependencies">jquery[3.5.1];shiny-css[1.6.0];shiny-javascript[1.6.0];htmlwidgets[1.5.1];datatables-css[0.0.0];datatables-binding[0.15];crosstalk[1.1.0.1];bootstrap[3.4.1]</script>
<script src="shared/jquery.min.js"></script>
<link href="shared/shiny.min.css" rel="stylesheet">
<script src="shared/shiny.min.js"></script>
<script src="htmlwidgets-1.5.1/htmlwidgets.js"></script>
<link href="datatables-css-0.0.0/datatables-crosstalk.css" rel="stylesheet">
<script src="datatables-binding-0.15/datatables.js"></script>
<link href="crosstalk-1.1.0.1/css/crosstalk.css" rel="stylesheet">
<script src="crosstalk-1.1.0.1/js/crosstalk.min.js"></script>
<meta name="viewport" content="width=device-width, initial-scale=1">
<link href="shared/bootstrap/css/bootstrap.min.css" rel="stylesheet">
<link href="shared/bootstrap/accessibility/css/bootstrap-accessibility.min.css" rel="stylesheet">
<script src="shared/bootstrap/js/bootstrap.min.js"></script>
<script src="shared/bootstrap/accessibility/js/bootstrap-accessibility.min.js"></script> <script>var table = $('summary_table').dataTable();</script>
<link rel="stylesheet" type="text/css" href="dt-core-1.10.20/css/jquery.dataTables.min.css"><link rel="stylesheet" type="text/css" href="dt-core-1.10.20/css/jquery.dataTables.extra.css"><script src="dt-core-1.10.20/js/jquery.dataTables.min.js"></script><link rel="stylesheet" type="text/css" href="nouislider-7.0.10/jquery.nouislider.min.css"><script src="nouislider-7.0.10/jquery.nouislider.min.js"></script><link rel="stylesheet" type="text/css" href="selectize-0.12.0/selectize.bootstrap3.css"><script src="selectize-0.12.0/selectize.min.js"></script></head>
</head>
最终，我正在寻找一个简单的示例，说明某人在加载 R Shiny 应用程序时获得了 .DataTable 以在控制台中不返回错误。这是错误的样子。
Uncaught TypeError: $(...).dataTable is not a function
at (index):19
这个问题让我发疯了。 谢谢大家的帮助！
【问题讨论】：
你看过这篇文章吗？ ***.com/questions/31227844/… @AlexandreLéonard 我有，但现在我回到它，我发现答案比我最初意识到的要多得多。我会通过它们并回复你。干杯。 【参考方案1】：summary_table 的 id 不是表的 id，而是它的容器的 id。试试
tags$head(
HTML(
"<script>$(document).ready(function()var table = $('#summary_table').find('table').DataTable(););</script>"
)
)
【讨论】：
遗憾的是没有运气。我们得到与上次相同的错误： (index):19 Uncaught TypeError: $(...).find(...).DataTable is not a function at (index):19 @DavidBlair 查看我的编辑。我忘记了$(document).ready。
感谢您的帮助。这次我得到“jquery.min.js:2 jQuery.Deferred exception: $(...).find(...).DataTable is not a function TypeError: $(...).find(... ).DataTable 不是函数”以及控制台下方的原始错误。
嗯，这是一个延迟问题。 setTimeout(function()var table = $('#summary_table').find('table').DataTable();, 1000); 工作。以上是关于如何在 r shiny 中使用 JS 数据表 API？的主要内容，如果未能解决你的问题，请参考以下文章
如何访问在 Shiny 中呈现的 rhandsontable 的 JS 变量名？
如何在Shiny R中丢弃DT :: datatable上的用户编辑
如何在R Shiny中使用renderUI触发renderDataTable进行输入？
在 R Shiny 中使用 DT::renderDataTable 时如何抑制行名？
在 R Shiny 中，如何使用 actionButton 重置 rhandsontable 中的数据（反转所有手动输入）？