r - 是否可以将串扰与 kableextra 表一起使用？

Question

我已经很好地格式化了我的表格kableextra，我想将 acrosstalk filter_slider应用于其中一列，以便用户可以调整它。但是，我收到以下错误：

if (nrow(df) > 0) as.character(1:nrow(df)) else character() 出错：参数长度为零

如果表格未使用kableextra. 我怎样才能解决这个问题？这是我放在一起演示的一些基本的可重现代码：

Name <- c("Dwyer, Andy","Ludgate, April", "Knope, Leslie")
Rank <- c(1,2,3)
Hours <- c(1000,2000,5000)
Title <- c("Shoe Shine","Intern","Deputy Director")
df <- data.frame(Name,Rank,Title, Hours)

library(crosstalk)
df2 <- SharedData$new(df)
filter_slider("Rank","Top",df2,column=~Rank)

library(kableExtra)
df3 <- kable(df,row.names=FALSE) %>%
   kable_styling(bootstrap_options = c("striped","hover",full_width=T),fixed_thead = T)%>%row_spec(seq(1,nrow(df),2),background = "aliceblue")

df3

df4 <- SharedData$new(df3)
filter_slider("Rank","Top",df4,column=~Rank)

我希望filter_slider在两个表上都可以正常工作。我需要一个交互式过滤器来处理kable格式化表格并且不能使用shiny.

标签： rfilterwidgetflexdashboardkableextra