[英]Control/delay the search speed of Shiny DT datatable using JS/html
我有一個帶有非常大的 Shiny DT 表的應用程序,並且我設法使用 JS/html 實現了數據表的批量搜索(在本示例的幫助下)。 據我了解,該表是實時搜索的,例如,如果我想在表中查找以“Ver”開頭的項目,一旦我開始輸入,搜索就會在我輸入第一個字母后開始,所以我必須慢慢等待,以“V”開頭的項目首先出現,然后等待所有具有“Ve”的項目,最后是“Ver”。 對於下面的簡短示例,這不是問題,但在某些用戶操作系統和具有許多條目的非常大的表上是一個問題。
總而言之,我不想在用戶每次按下鍵時都進行搜索,我想在用戶停止輸入 x 秒時進行搜索。 我認為根據這篇文章,這被稱為去抖動?
有人可以告訴我這是否可能嗎? 或者請建議我的問題的替代解決方案?
我在下面包含了一個可重現的示例,從我當前的應用程序修改而來,效果很好(除了表格的緩慢搜索和更新)。
library(shiny)
library(DT)
callback <- '
$("div.search").append($("#mySearch"));
$("#mySearch").on("keyup redraw", function(){
var splits = $("#mySearch").val().split(" ").filter(function(x){return x !=="";})
var searchString = "(" + splits.join("|") + ")";
table.search(searchString, true).draw(true);
});
'
ui <- fluidPage(
tags$head(tags$style(HTML(".search {float: right;}"))),
br(),
tags$input(type = "text", id = "mySearch", placeholder = "Search"),
DTOutput("dtable")
)
server <- function(input, output){
output[["dtable"]] <- renderDT({
datatable(
iris[c(1,2,51,52,101,102),],
options = list(
dom = "l<'search'>rtip"
),
callback = JS(callback)
)
}, server = FALSE)
}
shinyApp(ui, server)
> sessionInfo()
R version 4.0.0 (2020-04-24)
Platform: x86_64-apple-darwin17.0 (64-bit)
Running under: macOS Catalina 10.15.6
Matrix products: default
BLAS: /System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/libBLAS.dylib
LAPACK: /Library/Frameworks/R.framework/Versions/4.0/Resources/lib/libRlapack.dylib
locale:
[1] en_GB.UTF-8/en_GB.UTF-8/en_GB.UTF-8/C/en_GB.UTF-8/en_GB.UTF-8
attached base packages:
[1] stats graphics grDevices utils datasets methods base
other attached packages:
[1] DT_0.13 shiny_1.4.0.2
loaded via a namespace (and not attached):
[1] Rcpp_1.0.4.6 digest_0.6.25 later_1.1.0.1 mime_0.9
[5] R6_2.4.1 jsonlite_1.6.1 xtable_1.8-4 magrittr_1.5
[9] evaluate_0.14 rlang_0.4.6 promises_1.1.0 rmarkdown_2.2
[13] tools_4.0.0 htmlwidgets_1.5.1 crosstalk_1.1.0.1 rsconnect_0.8.16
[17] fastmap_1.0.1 httpuv_1.5.4 xfun_0.14 yaml_2.2.1
[21] compiler_4.0.0 htmltools_0.4.0 knitr_1.28
您可以使用setTimeout
來延遲搜索。 這里是 1 秒(1000 毫秒):
callback <- '
$("div.search").append($("#mySearch"));
$("#mySearch").on("keyup redraw", function(){
var splits = $("#mySearch").val().split(" ").filter(function(x){return x !=="";})
var searchString = "(" + splits.join("|") + ")";
setTimeout(function(){
table.search(searchString, true).draw(true);
}, 1000);
});
'
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.